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PREFACE 


This manual gives instructions for programming in Pascal-86 and for using the 
Pascal-86 compiler to prepare programs for iAPX 86 and iAPX 88 microcomputer 
systems. It is primarily a reference manual for use when you are writing or compiling 
Pascal-86 programs; however, it also contains some introductory information to help 
you familiarize yourself with Pascal-86 as you start to use it. 


The manual assumes you are familiar with basic programming concepts, including 
structured programming. However, it defines the language completely, assuming no 
prior knowledge of Pascal. 


Following the description of the language, this manual provides instructions for 
compiling your Pascal programs, linking and locating the compiled code, and execut- 
ing the final program. It explains how to interpret compiler output, including error 
messages. These portions assume you are familiar with the console operation of your 
development system. 


Finally, the appendixes provide quick reference information, plus supplementary 
instructions for interfacing Pascal-86 modules to modules in other languages and to 
your own operating system software. 


Manual Organization 


Figure 0-1 illustrates the structure of this manual. As shown in the figure, it contains 
four kinds of information: 


¢ Introductory and general reference information, including installation instructions 
¢ Language information, for use when you are programming in Pascal-86 


¢ Operating instructions for the compiler and run-time support, including descrip- 
tions of compiler controls 


¢ Interfacing information you need if you supply some of your own systems software 
in place of that supplied by Intel (e.g., a non-Intel operating system or your own 
real arithmetic error handler), or if you are interfacing Pascal-86 modules to 
modules written in other languages such as ASM86 or PL/M-86 


If you are a manager evaluating Pascal-86 to determine whether it fits your needs, 
you will find most of the information you need in Chapter 1, which is an overview of 
the product. You might also skim through Appendixes A through F for a summary 
of the language; note that the shaded portions of Appendixes D, E, and F describe 
extensions to ISO standard Pascal (Draft Proposal 7185). 


To get started with Pascal-86, first read this preface (How to Use this Manual) and 
Chapter |. (If you are familiar with assembly languages but not with high-level 
languages, see section 1.2.1 for a discussion of the advantages of a high-level language 
such as Pascal.) Then install the compiler using the instructions in Chapter 1, and 
try compiling, linking, locating, and running sample program 1 at the end of 
Chapter 1 to verify that the software operates correctly. 


After that, if Pascal is a new language for you, study the sample programs in 
Chapter 9 and run some of them following the instructions in that chapter. Finally, 
skim through the manual from Chapter 2 to the end, and try writing and running a 
few programs of your own. Once you have become familiar with Pascal-86, you will 
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find this manual useful as a complete reference. For quick reference, see the 
Pascal-86 Pocket Reference. 


If you wish to transport existing Pascal programs to your iAPX 86 or iAPX 88 appli- 
cation system, refer to Appendix A for a list of the differences between Pascal-86 and 
other dialects of Pascal. This appendix indicates the areas of your programs that may 
require modification. If your programs are written completely in standard Pascal as 
defined by the ISO Draft Proposal, you need not modify them at all before you 
recompile them with Pascal-86. 


Once you have coded your programs, you are ready to compile, link, locate, and run 
them. Refer to Chapter 10 for the use of compiler controls, and Chapter 11 for inter- 
pretation of the output listing. Chapter 12 describes how to link, locate, and execute 
your compiled programs. Chapters 13 and 14 help you interpret error messages you 
may receive when compiling or running your programs. Note that Chapter 12 gives 
only a brief outline of the linking and locating process and the associated error 
messages; for details, refer to the i/APX 86, 88 Family Utilities User's Guide. 


If you are coding some of your application software in another language such as 
ASM86 or PL/M-86, refer to Appendixes H and J for the information you need. If 
you are interfacing to your own operating system or providing your own file/device 
drivers, refer to Appendix K for instructions. 


How to Use This Manual 
Section Numbers 


All chapters and appendixes are section-numbered for easy cross-referencing: for 
instance, the heading number 5.3.2 denotes Chapter 5, section 3, subsection 2. When 
the text of one section refers to another section, the reference is made by number, for 
example, ‘tas described in 7.1.3.” Figures, tables, and sample programs are also 
numbered to aid in cross-referencing, for example, “in table 7-1,” “see figure 9-5,” 
“Sample Program | illustrates...” 


Syntax Notation 


This manual employs a notation similar to that used in Jensen and Wirth’s Pascal 
User Manual and Report to define the syntax of the language precisely. The syntax 
of the entire Pascal-86 language, in this notation, is given in Appendix D. For those 
who prefer the syntax diagrams used in an appendix to the Pascal User Manual and 
in a number of textbooks on Pascal, Appendix E provides the syntax of the language 
in that form. 


Notational Conventions 


UPPERCASE Characters shown in uppercase must be entered in the order 
shown. You may enter the characters in uppercase or 
lowercase. 
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italic Italic indicates a meta symbol that may be replaced with an 
item that fulfills the rules for that symbol. The actual symbol 
may be any of the following: 


directory-name Is that portion of a pathname that acts as a file locator by 
identifying the device and/or directory containing the 
filename. 

filename Is a valid name for the part of a pathname that names a file. 

pathname Is a valid designation for a file; in its entirety, it consists of a 


directory and a filename. 


pathname?, Are generic labels placed on sample listings where one or more 
pathnamez, ... user-specified pathnames would actually be printed. 
system-id Is a generic label placed on sample listings where an oper- 


ating system-dependent name would actually be printed. 


Vxy Is a generic label placed on sample listings where the version 
number of the product that produced the listing would 
actually be printed. 


[ ] Brackets indicate optional arguments or parameters. 


{ } One and only one of the enclosed entries must be selected 
unless the field is also surrounded by brackets, in which case 
it is optional. 


{ }... At least one of the enclosed items must be selected unless the 
field is also surrounded by brackets, in which case it is 


optional. The items may be used in any order unless other- 
wise noted. 


| The vertical bar separates options within brackets [ ] or 
braces { }. 


Ellipses indicate that the preceding argument or parameter 
may be repeated. 


[ic] The preceding item may be repeated, but each repetition must 
be separated by a comma. 


punctuation Punctuation other than ellipses, braces, and brackets must be 
entered as shown. For example, the punctuation shown in the 
following command must be entered: 


SUBMIT PLM86CPROGA,SRC,‘*9 SEPT 81") 


In interactive examples, user input lines are printed in white 
on black to differentiate them from system output. 


«cr)> Indicates a carriage return. 


Caution. 
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Intel extensions to standard Pascal and descriptions of the 
extensions are shaded in gray. 


When two adjacent items must be concatenated, they appear with no space between 
them. A blank space between two items indicates that the two items may be separated 
by one or more /ogical-blanks. For example: 


digits.digits [E[sign]|digits]< cr > 


specifies that the first set of digits, the . symbol, and the second set of digits must be 
concatenated, with no blanks between them. Likewise, the E symbol, the sign if 
included, and the third set of digits must be concatenated. 


Alternative constructs are represented as vertically adjacent items separated by extra 
vertical spacing and enclosed between curly braces that are taller than a single line 
of type. When these braces appear, choose any one of the constructs enclosed between 
the braces. For example: 


digits 

binary-digit [binary-digit]. . .B 
octal-digit [octal-digit}. . . Q 
digit [hex-digit]. . .H 


indicates that the construct described may have any one of the four forms listed 
between the large braces. 


Text enclosed between the character sequence (* and the sequence *), when these 
symbols are in light, non-monospace type, is a prose definition of the given construct. 
Such definitions are used when symbolic definitions would be more cumbersome. For 
example: 


(* any uppercase or lowercase letter of the alphabet *) 

is used to avoid listing 52 separate characters vertically between braces. 

The start of a new line in the notation does not mean you must start a new line at 
that point in your program; however, you may do so for readability. For example, 


when you use the construct: 


FOR variable :=expression TQ expression 
DQ statement 


you need not include a carriage return after the second expression, but in many 
programs doing so makes the statement more readable. 
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OVERVIEW 


This chapter introduces Pascal-86 and explains how it fits into the process of devel- 
oping software for your iAPX 86 or iAPX 88 application system. 


1.1 Product Definition 


Pascal-86 is a high-level language designed for programming the iAPX 86, 88 family 
of microprocessors. It is a superset of standard Pascal as defined in the ANSI/ 
IEEE770X3.97—1983 and includes additional features useful in microprocessor 
applications. 


The Pascal-86 compiler translates your Pascal-86 source programs into relocatable 
object modules, which you can then link to other such modules, coded in Pascal or in 
other iAPX 86, 88 languages. The compiler provides listing output, error messages, 
and a number of compiler controls to aid in program development and debugging. 


With the compiler comes a set of relocatable object libraries to be linked in with your 
own code; these libraries provide complete run-time support, including input/output 
and an optional interface to the Intel 8087 Numeric Data Processor to optimize 
arithmetic operations. After linking your own modules together with these Intel- 
supplied library modules, you can locate your final linked program to run on an Intel- 
lec development system, or in RAM, PROM, or ROM in your own iAPX 86 or iAPX 
88 microcomputer system. 


To perform the steps following compilation, use the 8086-based iAPX 86, 88 Family 
software development utilities — LINK86, LIB86, LOC86, CREF86, and OH86. 
You debug your programs using the DEBUG-86 applications debugger, PSCOPE 
(the interactive symbolic debugger), or the ICE-86A or ICE-88 In-Circuit Emulator. 
For firmware systems, you then use the Universal PROM Programmer (UPP) with 
its Universal PROM Mapper (UPM) software to transfer your programs to PROM. 


1.2 The Pascal-86 Language 
1.2.1 Using a High-Level Language 


High-level languages (Pascal in particular) more closely model the human thought 
process than do lower-level languages, such as assembly language. They therefore are 
easier and faster to write, since one less translation step is required from concept to 
code. High-level language programs are also more likely to be correct, since there is 
less occasion to introduce error. 


Programs in a high-level language are easier to read and understand, and thus easier 
to modify. As a result, you can develop high-level language programs in a much 
shorter period of time, and these programs are easier to maintain throughout the life 
of the product. Thus high-level languages result in lower costs for both development 
and maintenance of programs. 


In addition, programs in a high-level language, particularly a standardized language 
like Pascal, are easily transferred from one processor to another. Programs that can 
be transferred between processors without modification are said to be portable. 
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As you might expect, these advantages have a price: the resulting translated machine 
programs normally require more memory space and may run more slowly. For this 
reason, after the initial software design is complete, you may wish to re-code your 
most time-critical and space-critical routines in assembly language. 


If Pascal-86 is your first high-level language, you probably want to know how 
programming in a high-level language differs from assembly-language programming. 
When you use a high-level language: 


¢ You do not need to know the instruction set of the processor you are using. 


¢ You need not be concerned with the details of the target processor, such as regis- 
ter allocation or assigning the proper number of bytes for each data item—the 
compiler takes care of these things automatically. 


¢« You use keywords and phrases that are closer to natural English. 


¢ You can combine many operations (including arithmetic, Boolean, and set opera- 
tions) into expressions; thus you can perform a whole sequence of operations with 
one statement. 


e You can use data types and data structures that are closer to your actual problem; 
for instance, in Pascal you can program in terms of Boolean variables, charac- 
ters, arrays, and files rather than bytes and words. 


The introductory example at the end of this chapter (section 1.7) illustrates these 
points. Compare this Pascal program with an assembly-language program you might 
write to solve the same problem. 


Coding programs in a high-level language involves thinking at a different level than 
coding in assembly language. This level is closer to the level of thinking you use when 
you are planning your overall system design. 


1.2.2 Why Pascal? 


Many high-level programming languages are available today; some of them have been 
around far longer than Pascal. So once you have decided to use a high-level language, 
your next questions may be: How does Pascal differ from other high-level languages? 
What advantages does it have? When is it the right language to use? 


Here are some of the characteristics of Pascal: 


¢ It has a block structure similar to that of PL/M, plus control constructs that 
aid—in fact, encourage and enforce—structured programming. 


¢ It includes facilities for such data structures as multi-dimensional arrays, records, 
sets, files, and pointer-based dynamic variables, and also allows you to define 
new data types related to your problem, e.g., weekday, patientrecord. 


¢ It is a strongly typed language—that is, the compiler does extensive data type 
compatibility checking and range checking to help you detect logic errors in your 
programs at compile time. 


¢ It includes run-time support for sequential file I/O and floating-point arithmetic. 


¢ Its data structuring facilities and control statements are designed in a logically 
consistent way. Thus Pascal is a particularly good language for expressing 
algorithms, and has been used for this purpose in many textbooks. 


e Its control constructs make program correctness relatively easy to verify. 


e It is a standard language used on many computers, so Pascal programs are 
portable. 
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For iAPX 86 and 88 systems, Intel offers Pascal, PL/M, and FORTRAN. Your 
choice among these should depend on your implementation. Pascal-86, with its run- 
time I/O support, data-structuring facilities, user-defined types, and special-purpose 
built-in procedures and functions, is a higher-level language than PL/M-86, and is 
therefore better suited to applications programming. Pascal-86 also provides more 
extensive type checking than either PL/M-86 or FORTRAN-86, thus reducing 
program debugging time. Because Pascal is a standard language, programs in Pascal 
are portable -- they can be used on a number of different processors. On the other 
hand, PL/M-86 allows you to program at a level closer to your microprocessor 
hardware, making it generally more suitable for systems programming, while 
FORTRAN-86 has a rich set of arithmetic operations which make it best suited to 
scientific and numerical applications. 


The philosophy behind the Pascal and PL/M languages is fundamentally different. 
Pascal’s strong typing and other language features impose a strict discipline on you, 
the programmer, to enforce good structured programming practice and help you detect 
errors in your programs. Certain programming practices that make errors hard to 
find — such as defining one data type on top of another — are forbidden in Pascal. 
PL/M, on the other hand, was designed for programmers (generally systems 
programmers) who need such features and are willing to take the risk and extra 
debugging time required by programs that use them. 


What about the differences between Pascal and older, better-established languages 
like BASIC and COBOL Pascal has many more features than BASIC; and thanks 
to more consistent standardization, it is also more portable. It is a more general- 
purpose language than COBOL, which is tailored for business data processing. In 
addition, Pascal differs from these other languages in its strong typing and block 
structure. 


Pascal was designed in 1973 by Niklaus Wirth, who had two main objectives: to 
produce a language suitable for teaching programming concepts, and to design that 
language so that its implementations on existing computers could be reliable and 
efficient. Wirth found the more traditional languages (including FORTRAN, 
COBOL, and PL/I) unsuitable for teaching: their features and constructs often cannot 
be explained logically, making them more difficult to learn. 


Even more important, he was convinced that the language in which a programmer 
learns to program profoundly influences his thinking, and therefore his programming 
style and his reasoning in problem solving. He concluded that teaching programming 
using a logically constructed language can lead to better programmers and better 
programs. 


Pascal’s principles of structuring and form of expressions were patterned after those 
of Algol 60. However, other constructs were changed from Algol to accommodate 
Pascal’s additional data structuring facilities. Record and file structures more useful 
for solving commercial-type problems were added to Pascal. 


1.2.3 Portability 


As mentioned earlier, Pascal-86 conforms to standard Pascal as defined in the ISO 
Draft Proposal. This means that you can take Pascal programs written for other 
processors, compile them using Pascal-86, and run them on an iAPX 86 or iAPX 88 
microcomputer system, provided you use only standard features. The same programs 
can run on iAPX 86 systems and iAPX 88 systems without change. 
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You can write complete programs in Pascal-86 without using any Intel extensions to 
standard Pascal, thus keeping your programs completely portable. In this manual, 
the descriptions of Intel extensions are shaded in gray to distinguish them from stan- 
dard features. You can also use a compiler option (the NOEXTENSIONS control) 
to direct the compiler to print out warning messages wherever such extensions appear 
in your program. 


1.2.4 Intel Extensions to Standard Pascal 


If you are concerned with the ease of programming for your microprocessor applica- 
tions, you will probably want to use the language extensions and compiler controls 
that tailor Pascal-86 to the iAPX 86, 88 environment. These include 32-bit arithme- 
tic, language constructs for building separately compiled modules, and builtin proce- 
dures for port input/output and interrupt control. 


Separately compiled modules allow you to divide a program into smaller, more 
manageable parts, and to locate different parts of your program in memory of differ- 
ent types or in different hardware locations. Port input/output provides fast data 
transfer by means of direct communication with microprocessor ports. The interrupt 
control procedures allow you to write Pascal routines to handle interrupts in your 
system. 


1.3 The Compiler and Run-Time System 
1.3.1 Compiler Features 


The Pascal-86 compiler includes a number of features to make programming and 
debugging easier. Compiler controls allow you to specify the form and content of 
your source code, object code, and output listing. 


Controls are provided to copy (INCLUDE) source code from other files in 
addition to the main source file, to output type and debug information in the 
object file for use by LINK86 and the ICE-86A and ICE-88 emulators, and to specify 
interrupt procedures tailored to your hardware. The compiler also provides the 
NOEXTENSIONS control to flag extensions to standard Pascal, an optional cross- 
reference listing, and a control to aid in program checkout and debugging. 


1.3.2 Run-Time Support Libraries 


The run-time support libraries, provided in relocatable object code form to be linked 
to your compiled object program, allow you to run your program in a number of 
environments. You simply choose the run-time libraries that match the hardware/ 
software configuration you are using. 


These libraries provide all I/O support needed to run your programs. You may also 
choose to have floating-point arithmetic operations performed using either floating- 
point software routines on your 8086 or 8088 processor, or the on-chip capabilities of 
an 8087 Numeric Data Processor for higher performance; in either case, all required 
arithmetic and interface software is included in the run-time libraries. In addition, 
the modular structure of these libraries allows you to substitute your own file /device 
drivers. 
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1.4 Hardware and Software Environments 
1.4.1 Program Development Environment 


To run the compiler, you must have the following hardware and software: 


¢  Intellec Series III development system and resident operating system (see 
Appendix L). 


¢ 86/300 Microcomputer System (see Appendix M). 


« Custom iAPX 86 or iAPX 88 Microcomputer System that includes an iRMX 
86-based resident operating system (see Appendix M). 


¢ Four double-density diskette drives or a hard disk unit is recommended. (Note 
that for hard disk users, initial installation of the compiler requires a single- or 
double-density diskette drive, since the product is delivered in diskette form; 
thereafter, hard disk alone is sufficient.) 


A system with a diskette or hard disk unit and a printer is also recommended for 
producing hard-copy output listings. This system may be separate from the one used 
to compile programs. 


To link and relocate programs after you have compiled them, and to prepare them 
for loading (or PROM programming) and execution, you need the following 8086- 
based software: 


« LINK86 
¢ LIB86 

« LOC86 

¢ CREF86 
* OH86 


Instructions for using these utility programs are given in the iAPX 86, 88 Family 
Utilities User’s Guide, Order Number 121616. 


Depending on your development environment and your final run-time environment, 
you may also wish to use the following hardware and software: 


¢ The DEBUG-86 applications debugger 
¢ The PSCOPE symbolic debugger 
« The ICE-86A or ICE-88 In-Circuit Emulator 


e The SDK-86 System Design Kit, optionally with the SDK-C86 Software and 
Cable Interface 


¢ The iSBC 957A Intellec-iSBC 86/12A Interface and Execution Package 


¢ The Universal PROM Programmer (UPP) with the Universal PROM Mapper 
(UPM) software 


1.4.2 Run-Time Environment 


Your compiled, linked, and located program code may run in either of the following 
environments: 


e« A Series III development system with its ISIS-II based resident operating system 


« An iSBC 86-based system with an iSBC 86-based single board computer or a 
custom-designed iAPX86 or iAPX88 microcomputer system. 
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In the latter case (an environment without Intel operating system support), you will 
need to provide your own operating system support for the run-time libraries. Appen- 
dix K gives instructions for writing your own file/device drivers and the software 
interface required by the run-time libraries. 


In the iRMX 86-based software run-time environment, the Universal Development 
System Interface layer must be configured into iRMX 86 in order to run 
PASCAL-86 programs. 


You may increase the speed of floating-point arithmetic operations in your programs 
by including an 8087 Numeric Data Processor in your system. Detailed specifications 
are provided in the iAPX 86,88 User’s Manual, Order Number 210201-001. 


1.5 Compiler Installation 


The Pascal-86 software package includes this manual (the Pascal-86 User’s Guide), 
the Pascal-86 Pocket Reference, Order Number 121541, supplementary literature 
including a customer letter and Problem Report forms, and one double- and two single- 
density program diskettes. The diskettes contain the following files: 


PASC86.86 E8087 PROG4.SRC 
P86RNO.LIB E8087.LIB PROGS.SRC 
P86RN1.LIB 8087.LIB PROG6.SRC 
P86RN2.LIB 87NULL.LIB PROG7.SRC 
P86RN3.LIB PROG1.SRC PROG8.SRC 
RTNULL.LIB PROG2A.SRC PROGI.SRC 
DCON87.LIB PRG2B1.SRC DATA2 
CEL87.LIB PRG2B2.SRC DATA3 
EH87.LIB PROG3.SRC DATA4 


The file named PASC86.86 contains the Pascal-86 compiler. The files P86RNO.LIB, 
P86RN1.LIB, P86RN2.LIB, P86RN3.LIB, RTNULL.LIB, DCON87.LIB, 
CEL87.LIB, EH87.LIB, E8087, E8087.LIB, 8087.LIB, and 87NULL.LIB are the 
run-time support libraries and modules. (Detailed descriptions of the 8087 libraries 
are located in the 8087 Support Library Reference Manual Order Number 1217235.) 
PROGI.SRC, PROG2A.SRC, PRG2B1I.SRC, PRG2B2.SRC, PROG3.SRC, 
PROG4.SRC, PROGS.SRC, PROG6.SRC, PROG7.SRC, PROG8.SRC, and 
PROG9.SRC are the source code for the sample programs in Chapters 1, 2, and 9. 
DATA2, DATA3, and DATA4 are the data files for the sample programs. 


NOTE 
In the iRMX 86 environment the “.86” extension is dropped. 
Once you have your compile-time environment configured as described in section 


1.4.1, copy the compiler and run-time library files from the release diskette to the 
single- or double-density diskette or hard disk you are using on your system. 


The sample programs provided on the release diskette may be used for demonstration 
and checkout in your development environment. Operating instructions for these 
programs are given in Chapter 9. 


1.6 The Program Development Process 


The Pascal-86 compiler and run-time libraries are part of an integrated set of tools 
that make up the total iAPX 86 or iAPX 88 development solution for your micro- 
computer system. Figure 1-1 shows how you use these tools to develop programs. The 
shaded boxes represent Intel products. 
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The steps in the software development process are as follows: 


1. Define the problem completely. 


2. Outline the proposed solution in terms of hardware plus software. Once this step 
is done, you may begin designing your hardware. 


3. Design the software for your system. This important step may consist of several 
sub-steps, including breaking down the task into modules, choosing the program- 
ming language, and selecting the algorithms to be used. 


. Code your programs and prepare them for translation using a text editor. 
. Translate your Pascal program code using the Pascal-86 compiler. 
. Using the text editor, correct any compile-time errors; then recompile. 


. Using 8086-based LINK86 (and LOC86 if needed), link the resulting relocata- 
ble object module to the necessary run-time libraries supplied with Pascal-86, 
and locate your object code. The use of LINK86 and LOC86 depends on your 
application; for detailed instructions, see the iAPX 86, 88 Family Utilities User's 
Guide. 


8. You can then run your programs and debug them, with the aid of run-time error 
messages and diagnostic output generated by the compiler’s program checkout 
control. Your execution vehicle for debugging can be an operating system with 
the DEBUG-86 or PSCOPE applications debugger and an ICE-86A or ICE-88 
In-Circuit Emulator, or RAM on an SDK-86 System Design Kit or iSBC 
86/12A Single Board Computer with resident monitor. 


SN HN Nn 


9. Translate and debug your other system modules, including those coded in other 
languages. Once you have performed the desired amount of testing on your 
individual modules, you can link them together and locate them using 8086-based 
LINK86 and LOC86. 


10. Test and debug your software in your chosen debugging environment (see 
step 8). 


11. Produce a final debugged object module and transfer it to your run-time environ- 
ment. How you do this depends on the nature of that environment and the tools 
you are using. 


e If it is a Series III, use the Series HI RUN command to load and run your 
program. 


¢ Ifitis RAM onan SDK-86 kit or an iSBC 86 Single Board Computer system, 
use OH86 to obtain a hexadecimal object code file. Then, if you have been 
developing your programs on a Series III, use an appropriate tool for 
downloading them into your execution board (the ICE-86A or ICE-88 In- 
Circuit Emulator, the SDK-C86 Software and Cable Interface, or the iSBC 
957 Interface and Execution Package). 


e¢ If it is ROM on an SDK-86 kit, iSBC Single Board Computer system, or 
your own custom-designed hardware, use the Universal PROM Programmer 
(UPP) with its Universal PROM Mapper (UPM) software to transfer your 
program to PROM. 


Note that you can do your hardware development in parallel with software develop- 
ment, and that you can take intermediate hardware/software integration steps if you 
are using the ICE-86A or ICE-88 In-Circuit Emulator. 


For instructions on the use of other Intel products discussed in this section, refer to 
the manuals listed in your specific operating-system appendix. 
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1.7 An introductory Sample Program 


Figure 1-2 is a Pascal-86 program that converts Fahrenheit temperatures to Celsius 
as you enter them from the console. The source code for this program is provided on 
the release diskette as the file named PROGI.SRC. This section explains, step by 
step, how to compile, link, and run the program on your development system. 


NOTE 


This introductory sample program is intentionally an extremely simple one. 
Larger sample programs appear in Chapters 2 and 9. 


The interactive computer dialogue in this section consists of commands you enter, 
which are immediately echoed on the console display, and text displayed by the 
operating system, the Pascal-86 compiler, and other Intel-supplied programs. The 
text you enter is shown in reverse type (white on a black background), and the text 
displayed by the Intel programs is shown in normal black type. The notation <cr> 
stands for the RETURN key on the console keyboard. Note that the operating system 
prompt (indicating that it is ready to accept a command) and, for some systems, the 
name of the loader (e.g., RUN on the Series III) are not included—see your specific 
operating-system appendix for details. The two-asterisk prompt indicating the begin- 
ning of a continuation line is given here. 


To prepare this sample program for execution on your operating system, make a copy 
of the file PROGI.SRC. (If this were your own program, you would first type it in 
using a text editor.) You can invoke the compiler using the command: 


meun pasc86 :f5:progi.sre 
The compiler responds on the console with a sign-on message: 


system-id Pascal-86, Vxy 
Copyright 1981, 1982, 1983 Intel Corporation 


where 
system-id is the name of your operating system. 
xy is the version number of the compiler. 


As the compiler processes the program, a trace of the various compilation phases is 
displayed below the sign-on message. For this example, the final completed trace line 
iS: 


PARSECO0), ANALYZEC0), NOXREF, OBJECT 
This is followed by the console sign-off message: 


Compilation of FAHRENHEITTTOCELSIUS Completed, 0 Errors Detected. 
End of Pascal-86 Compilation. 


Next, link the resulting object program with the necessary run-time libraries. To do 
this, enter the following command: 
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System~id Pascal~86 Vxey 


Source File: PROG1.SRC 
Object File: PROG1.03J 
Controls Specified: <none>. 


STMT LINE NESTING SOURCE TEXT: PROG1.SRC 
(x This program converts Fahrenheit temperatures to Celsius. It 
prompts the user to enter a Fahrenheit temperatures either real or 
integers on the console. The program computes and displays the equivalent 
Celsius temperature on the console until the user has no more input. *) 
1 6 Q 9 program FahrenheitToCelsius (Input/Output)? 
2 8 0 QO var CelsiusTemp-FahrenheitTemp : real; 
3 9 0 O QuitChar : char; 
4 11 O O begin 
4 13 0 1 repeat 
4 159 dQ 2 writeln;s writeln; 
6 17 O 2 write(’°Fahrenheit temperature is: °)7 
6 19 9 2 readin (FahrenheitTemp)- 
8 21 Q 2 CelsiusTemp := (€ FahrenheitTemp - 32.9 ) * ¢( 5.0 / 9.0 )); 
9 23 0 2 write(°Celsius temperature is: “Ys writeln(CelsiusTemp:5:1); 
11 25 90 2 writeln; 
12 27 GCG 2 write(”’Another temperature input? :°)3 
13 29 9 2 read(QuitChar); writeln,s 
15 31 O 2 until not (QuitChar in C°Y’,s’y’%)) 
16 33. 0 2 end. (* FahrenheitToCelsius *) 
Summary Information: 
PROCEDURE OFFSET CODE SIZE DATA SIZE STACK SIZE 
FAHRENHEITTOCELSIUS OO70H 0161H 3530 0919H 250 OOOEH 14D 
“CONST IN CODE- 9070H 1250 
Total 01DEH 4780 QO0O19H 250 0042H 66D 
33 Lines Read. 


) 


Errors Detected. 


Dictionary Summary: 


48KB Memory Available. 


6KB Memory Used (12%). 
OKB Disk Space Used. 
2KB out of 16KB Static Space Used (12%). 


Figure 1-2. Sample Program 1: Temperature Conversion 
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LINK86 displays the sign-on message: 

system-id 8086 LINKER, Vxy 

then links your program, returning control to the operating system when it finishes. 
To run the program, first give the command: 

The program displays the message: 

Fahrenheit temperature is: 


Type in a temperature in Fahrenheit degrees. If you mis-type, you may edit the line 
using the RUBOUT key. Then strike the RETURN key. 


The program calculates the Celsius temperature and displays the output: 
Celsius temperature is: n 


where 


n is the Celsius equivalent of the temperature you typed in. 
Finally, the program skips a line and displays: 
Another temperature input? 
Type Y or y if you want to do another calculation. This causes the program to skip a 
space and display the starting message again, allowing you to type in another temper- 


ature. You may do this as many times as you wish. 


When you wish to stop, answer the final query with any character other than Y or y, 
and the program will skip a line and return control to the operating system. 


CHAPTER 2 


PROGRAM STRUCTURE 


Before we begin defining the specific rules for coding declarations, statements, and 
other language constructs in Pascal-86, let us look at the overall structure of a Pascal- 
86 program. This chapter provides a frame of reference for the six chapters that 
follow it (Chapters 3 through 8), which fill in the details of the language. 


The features of Pascal are extremely interdependent. For this reason, this manual 
will sometimes need to refer to terms or concepts, such as statements, variables, and 
types, before it has defined or discussed them. If Pascal is a new language for you 
and you are reading this manual for the first time, you do not need to understand 
every concept thoroughly the first time you encounter it. Concepts that are mentioned 
briefly will be explained more fully in subsequent chapters. 


Even if you are familiar with the block structure of standard Pascal, you should read 
this chapter before you start programming. It introduces the concept of a separately 
compiled module—an Intel extension to standard Pascal—and shows how the module 
construct fits in with standard Pascal program structure. 


2.1 Structure of a Standard Pascal Program 


Pascal is a block-structured language. Programs in such a language are composed of 
sections (called blocks) that perform logically related functions and may be nested 
inside one another. PL/M, PL/I, and Algol are also block-structured languages; 
FORTRAN, BASIC, COBOL, and most assembly languages are not. Block struc- 
ture in a programming language has several advantages: 


e It permits you to concentrate on one part of a program at a time, isolating that 
part from the rest of the program. 


¢ It results in programs whose logical structure is easy to read and understand. 


¢ It allows the compiler to impose certain rules and checks over the scope of varia- 
bles and the flow of control in a program, enabling you to discover and correct 
many types of logical errors at compile time. 


Figure 2-1 illustrates the structure of a Pascal program. (Section 9.2 gives a more 
detailed explanation of the sample program in figure 2-1.) 


A block in Pascal consists of the following three parts: 
1. Definitions and declarations 

2. Procedure and function declarations 

3. Statements 


The first part defines data items—constants, types, and variables—and labels used 
within the block. Definitions introduce items that have meaning only at compile time, 
and declarations introduce items that have meaning at run time as well. Procedure 
declarations and function declarations define subprograms, which are blocks nested, 
or contained, within the block in question. Statements specify the actions to be 
performed by the block. Of the three parts, only the statement part is required in 
every block. 
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(* TR1Is program builds a binary tree of characters from 
user input data and prints out the nodes of a tree in 
infix, prefix, and postfix notation. An input line con- 
sists of the characters its position in the trees and the 
position of its two childrens each item is separated from 
the next by a blank. 


Variables —- 
MaxNumNodes - maximum number of nodes in a tree 
One - index cf the root 
NodeCharacter - constitutes a node in the tree 
NodeIndex - position of node in the tree 
ExpressionTree - binary tree which is created 
DataFile - file which holds user data *) 


BLOCK 1 (PROGRAM BLOCK) 
program TreeTraversal(Input,Output) ; <—————————_ PROGRAM HEADING 


Conse Se = 205, CONSTANT DEFINITIONS 


type Subser = 0..MaxNumNodes ; #——————._ TYPE DEFINITIONS 
Node = record 
Symbol : char; 
Left : Subscer; 
Right : Subscr 


end; 
Tree = array[Subscr] of node; 
var NodeCharacter : char; *“——— VARIABLE DECLARATIONS 


NodeIndex : integer; 
ExpressionTree : Tree; 
DataFile : text; 


BLOCK 2 (PROCEDURE DECLARATION) 


procedure BuildTreesz (* build tree from user input *) 
var FindRoot : booleans «VARIABLE DECLARATION 
BLOCK 6 (PROCEDURE DECLARATION) «————————————_ PROCEDURE HEADING 
procedure AddNode,s (* add a node to the tree *) 
begin 
write(NodeCharacter : 3 NodeIndex: 3)7 
with ExpressionTree({NodeIndex] do begin 
Symbol:=NodeCharacter,s 
read(OataFile-Left)s write(Left : 3); 
read(DataFile,-Right)s write(Right : 3)37 STATEMENT 
readln(DataFile); 
writeln 
end 
ends (* AddNode #) 


begin 
FindRoot := false; 
writeln(’INPUT IS:°)- writelns 
AddNode-s 
repeat 
read(dataFilesNodeCharactersNodeIndex) 7 
if NodeIndex = 1 then FindRoot 3:= true 
else AddNode 
until (FindRoot) or Ceof(DataFile)); 
writeln 
ends (* BuildTree *) 


STATEMENT 
PART 


BLOCK 3 (PROCEDURE DECLARATION) 


procedure Infix(NodeIndex : Subscr)s (* write out the 
tree in infix notation *) «———_—— PROCEDURE HEADING 
pegin 
with ExpressionTree(NodeIndex] do 
if Left <> 0 then begin 
write("’C" 3 1) 
Infix (Left); 
write(Symbol : 2); 
Infix (Right), 
write (’)" 3: 1) 
end (* if *) 
else write (Symbol 
ends (* Infix *) 


STATEMENT 
PART 


Figure 2-1. Sample Program 2A: Binary Tree Traversal in Standard Pascal 
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BLOCK 1 (PROGRAM BLOCK) (CONTINUED) 


BLOCK 4 (PROCEDURE DECLARATION) 
CR er se ee eee meee e ence ee= &) 


procedure Prefix (NodeIndex =: Subscr); (* write out the 
tree in prefix notation *) «————————— PROCEDURE HEADING 
begin 
with ExpressionTreeC{NodeIndex] do 
if Left <> 0 then begin 
write(Symbol =: 2)2 
Prefix (Left); 
Prefix (Right) 
end (x if *) 
else write(Symbol : 2) 
ends (* Prefix *) 


STATEMENT 
PART 


BLOCK 5 (PROCEDURE DECLARATION) 


(ee weer em we me ee enn ee enero wee ewer ees oeresteserc= ~--- #) 
procedure Postfix (NodeIndex : Subscr)s (* write out the 
tree in postfix notation *) «—————— PROCEDURE HEADING 
begin 
with ExpressionTree[NodeIndex] do 
if Left <> 0 then begin 
Postfix(€Left); 
Postfix (Right); 
write(Symbol =: 2) 
end (* if *) 
else write(€Symbol 3: 
ends (* Postfix *) 


STATEMENT 
PART 


(* The main program reads in user data and displays the 
tree in Infixs Prefixs and Postfix notation. *) 
begin (* TreeTraversal *) 
reset(CataFile,’:F1:DATA2°); 
writelns writelns writeln; 
read(DataFile-NodeCharactersNodeIndex); 
while not eof(DataFile) do begin 
BuildTree; 
writelns writeln(’INFIX:%)3 
Infix (One); STATEMENT 
writeln;s writeln(°PREFIX:°); PART 
Prefix (One); 
writelns writeln(*’POSTFIX:%)2 
Postfix(One); 
writeln;s writeln 
end; 
writeln;s writeln 
end. (* TreeTraversal *) 


Figure 2-1. Sample Program 2A: Binary Tree Traversal in Standard Pascal 
(Cont’d.) 
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The program block is the outer-level block in a program. The procedure and function 
declarations contained within the program block are also blocks. In standard Pascal, 
procedure and function blocks cannot stand alone; however, they may contain all 
three parts of a block, including other procedure and function declarations. 


Figure 2-1 consists of a program block containing four second-level procedure decla- 


_ rations, marked BLOCK 2, BLOCK 3, BLOCK 4, and BLOCK 5. BLOCK 2 itself 


contains another procedure declaration, marked BLOCK 6. Thus the structure is 
hierarchical. 


This block structure encourages top-down development and stepwise-refinement 
techniques of program design. The nesting level of a procedure or function may 
correspond to the level of that operation in a stepwise breakdown of the problem. For 
example, for the tree traversal program of figure 2-1, the programmer first divided 
the task into four main parts: build tree from user input, write out tree in infix notation, 
write out tree in prefix notation, and write out tree in postfix notation. The program 
may perform each of these tasks more than once. Next, within the “build tree from 
user input” task, he identified a sub-task: add a node to the tree. Larger programs 
may include many more levels of nesting. 


The program block defines the main program, with which execution starts when you 
run the program. During execution, the outer statement part of the program block 
may make calls to subprogram blocks (procedures and functions) contained within 
the program block. Thus, the statement part specifies the order in which the program 
performs the sub-tasks. 


Procedures and functions are similar structurally, but differ in how they are invoked 
and in their purpose. A procedure is invoked via a procedure statement (similar to a 
“call” in some other languages). A function is invoked by giving its name and a list 
of arguments in an expression within a statement. The function returns a value to the 
calling program; this value replaces the function name and argument list in the 
expression. Thus procedures often perform actions that change many values, but the 
primary purpose of a function is to return a single value. 


For example, the following function returns the absolute value of the argument corre- 
sponding to x: 


function abs (Cx:real): real; 


const zero = 0.0; 
begin 
if x>=zero then abs := x 
else abs := -x 
end 


A reentrant procedure or function is one that can be invoked again before the first 
invocation is finished. This may occur, for example, if an interrupt occurs while the 
procedure is executing. In Pascal, all procedures and functions are automatically 
reentrant, as long as they do not change any global variables (defined in 4.1.2). Thus 
you do not need to make any special provisions for a procedure which may be inter- 
rupted during its execution, and subsequently invoked to process the interrupt. 


Another important capability of Pascal is recursion. A recursive procedure or function 
is one that calls itself—either directly or indirectly. For instance, if procedure A 
contains a call to procedure A, it is (directly) recursive. If A calls B and B calls A, 
the two procedures are both indirectly (mutually) recursive. If A calls B, B calls C, 
C calls D, and D calls A, all four procedures are indirectly (mutually) recursive. A 
recursive procedure or function is frequently a natural way to express an algorithm. 
In figure 2-1, the procedures Infix, Prefix, and Postfix (BLOCK 3, BLOCK 4, and 
BLOCK 5S) are directly recursive. 
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Certain useful procedures and functions are included as part of the Pascal-86 language. 
These include arithmetic and conversion functions, ordinal and Boolean functions, 
input/output procedures, procedures for allocating dynamic variables, and proce- 
dures and functions to communicate directly with microprocessor hardware. Some of 
these are from standard Pascal; others are Intel extensions. You need not declare 
these predefined procedures and predefined functions in your program; simply invoke 
them, using procedure statements or expressions, when needed. The program of figure 
2-1 calls the predefined procedures read, readin, write, and writeln. 
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MODULE 1 (MAIN, OR PROGRAM, MODULE) 


BLOCK 1 (PROGRAM BLOCK) 


(x This program builds a binary tree of characters from 
user input data and prints out the nodes of a tree in 
infix, prefix,s and postfix notation. An input line con- 
sists of the characters its position in the trees and the 
position of its two childrens each item is separated from 
the next by a blank. *) 


program S8inaryTreeMain(Input-Output) s+— PROGRAM HEADING 
const One = 14 —¢——__ CONSTANT DEFINITION 
var OataFile : text¢<«——————————_———_- VARIABLE DECLARATION 
BLOCK 2 (PROCEDURE DECLARATION) 


ho eee ene ooo oo = = = = - = -- - ------ 22-22 -----------8) 


procedure BuildTree; «————-. -——-————— PROCEDURE HEADING 
var FindRoot : booleans <————_. VARIABLE DECLARATION 
See de laure nddNedet oo 1 PROCEDURE REROING 
begin 
write(NodeCharacter : 3 NodeIndex: 3); 
with ExpressionTree(NedeIndex] do begin 
Symbol:=NodeCharacter; 
read(DataFile-Left)s write(Left : 3); STATEMENT 
read(DataFile-Right)-s write(Right : 3); PART 
readln(DataFile);s 
writeln 
end 
end; (* AddNode *) 


begin 
FindRoot := false;s 
writeln(°INPUT IS:’)s writeln; 
AddNodes 
repeat 
read(DataFile,NodeCharactersNodeIndex); STATEMENT 
if NodeIndex = 1 then FindRoot := true PART 
else AddNode 
until (Find2oot) or (Ceof(DataFile)); 
writeln 
ends (* BuildTree *) 


(& soe -e-------------------- eee --------- wero nn ------ *) 


(* The main program reads in user data and displays the 
tree in Infixs Prefix, and Postfix notation. *) 


begin (* BinaryTreeMain *) 
reset(DataFile,’ :F1:DATA2°); 
writeln;s writelns writeln; 
read(QataFile-NodeCharactersNodeIndex); 
while not eof(DataFile) do begin 
BuildTree;s 
writeln; writeln(”°INFIX:°)3 
Infix€dne)-; STATEMENT 
writelns writeln(’PREFIX:°)7 PART 
Prefix(lIne); 
writelns writeln(°POSTFIX:°); 
Postfix(Ine); 
writelns writeln 
end; 
writelns writeln 
end. (* 3inaryTreeMain *) 


Figure 2-2. Sample Program 2B: Binary Tree Traversal Using Separately 
Compiled Modules 
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MODULE 2 (NON-MAIN MODULE) 


BLOCK 4 (PROCEDURE DECLARATION) 


procedure Infix(NodeIndex : Subscr)s (* write out the 
tree in infix notation *) «————— PROCEDURE HEADING 


begin 
with ExpressionTree[NodeIndex] do 
if Left <> 0 then begin 
write(’(" : 1)2 
Infix(Left)- 
write(Symbol : 2); STATEMENT 
PART 


Infix (Right); 
writec’)” = 1) 
end (* if *) 
else write(Symbol 
end; (* Infix *) 


procedure Prefix(NodeIndex : Subser)s (* write out the 
tree in prefix notation *) «—————— PROCEDURE HEADING 
begin 
with ExpressionTreeCNodeIndex] do 
if Left <> 0 then begin 
write(Symbol =: 2); 
Prefix(Left); rT aad 
Prefix (Right) 
end (* if *) 
else write(Symbol 
ends (* Prefix *) 


procedure Postfix(€NodeIndex : Subscr)s (* write out the 
tree in postfix notation *) «——— PROCEDURE HEADING 
begin 
with ExpressionTree([NodeIndex] do 
if Left <> 0 then begin 
Postfix (Left); 
Postfix (Right): STATEMENT 
write€Symbol : 2) PART 
end (* if *) 
else write (Symbol 
Postfix *). 


Figure 2-2. Sample Program 2B: Binary Tree Traversal Using Separately 
Compiled Modules (Cont’d.) 


Program Structure 


2-7 


CHAPTER 3 


LANGUAGE ELEMENTS 


Chapter 2 presented the overall structure of a Pascal-86 program. This chapter, and 
the chapters following it through Chapter 8, define the details of the Pascal-86 
language. 


Rules governing the coding of programs are of two types: syntax rules and semantic 
rules. The syntax of a programming language is the set of rules defining what 
sequences of symbols make up acceptable programs in the language. The semantics 
of a language is the set of rules for determining, given a syntactically acceptable 
program, what that program means—that is, what actions it will cause the processor 
to take. It is possible for a program to be syntactically correct but semantically 
meaningless. 


In this manual, the syntax of each part of a program is generally defined using the 
syntax notation described in the preface (How To Use This Manual). In cases where 
such symbolic definitions would be cumbersome, the syntax is presented in prose. 
Most of these cases occur in this chapter. 


Along with the syntax definition of each language construct, the accompanying 
semantic rules are given in prose. The syntax and the semantic rules are generally 
followed by one or more examples of the language construct being defined. 


The syntax of the entire Pascal-86 language, in syntax notation, is given in 
Appendix D. For those who prefer the syntax diagrams used in an appendix to the 
Pascal User Manual and Report by Kathleen Jensen and Nicklaus Wirth, and in a 
number of textbooks on Pascal, Appendix E provides the syntax of the language in 
that form. 


This chapter defines the symbols that make up the building blocks, or “words,” of a 
program. These elements, such as digits, blanks, keywords, identifiers, and special 
punctuation symbols, make up the larger “sentences” of the language as defined in 
the chapters that follow. 


3.1 Basic Alphabet 


The basic building blocks of a Pascal-86 program are: 
¢ The upper-case and lower-case letters 

¢ The digits 0 through 9 

¢ The following keywords (word symbols): 


AND FOR OR | TO 
ARRAY FUNCTION : TYPE 
BEGIN F UNTIL 
CASE P VAR 
CONST PROCEDURE WHILE 
DIV PROGRAM WITH 
DO P : 

DOWNTO ECORD 

ELSE REPEAT 

END SET 

FILE THEN 


Language Elements Pascal-86 User’s Guide 


¢ The following punctuation symbols: 


+ plus sign ] right bracket 
— minus sign { left brace 

* star } ~—s right brace 

/ slash ‘= assignment symbol 
= equal sign ; period, or dot 
<> “not equal” symbol ; comma 

< “less than” symbol : semicolon 

> “greater than” symbol colon 

<= “less than or equal to” symbol A apostrophe 
>= “greater than or equal to” symbol f  up-arrow 

( left parenthesis _, ellipsis 

) right parenthesis _ _ underscore 

[ left bracket @ “at” sign 


The keywords are reserved words; that is, you cannot use them as identifiers. A 
complete list of key. words appears in Appendix F. In the syntax notation and in the 
syntax diagrams, keywords are written in all capital letters. However, you need not 
capitalize them in your programs. 


In keywords and identifiers, a lower-case letter is equivalent to its upper-case 
counterpart, unless the letter is within a literal character string as defined in 3.3.5. 
For example: 


BEGIN begin Begin 
are all the same Pascal-86 keyword. Likewise: 
TIMEQUT timeout TimeOut 


are all the same identifier. 


The use of most of the keywords and punctuation symbols is defined in Chapters 2, 
4, 5, 6, and 7. However, here are a few notes about two of the punctuation symbols. 


First, a period, or dot (.), marks the end of every compilation (main program module 
or non-main module). 


Second, the semicolon (;) serves as a separator between phrases of the language in a 
program. This differs from the way the semicolon is used in some other high-level 
languages, including PL/M and PL/1. In these other languages the semicolon is a 
statement terminator; that is, it marks the end of every statement. In Pascal, there is 
no such terminator. To illustrate the distinction, notice that ina PL/1 program, every 
statement in a BEGIN block ends with a semicolon: 


BEGIN; 
TEMP = A; 
A = B; 
B = TEMP; 
END; 
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whereas in a Pascal compound statement, the semicolon appears only between the 
component statements: 


BEGIN 
TEMP := A; 
A := B; 
B = TEMP 
END 


and the punctuation after END depends upon the context. 


Note that in the IF statement defined in 7.2.4, the ELSE clause (if included) is a 
part of the statement, so you may not precede the ELSE clause with a semicolon. 
The syntax notation and examples in Chapters 4, 5, 6, and 7 make clear when you 
need to use the semicolon separator. 


3.2 Logical Blanks 


Declarations, statements, and other constructs in Pascal are in free format; in other 
words, they are separated from one another by appropriate punctuation or blanks 
rather than by their positions in the input line. Thus you may extend a declaration or 
statement over several input lines and indent it for maximum readability and under- 
standability by inserting carriage returns and blanks. Continuation line markers (such 
as those used in FORTRAN programs) are not needed in Pascal. 


Logical blanks are blank characters or blank substitutes that may separate symbols 
in a Pascal-86 program. The entities that can substi f carriage 
return character (CR), the line feed character (LF), nd the 
comment. The following rules govern the use of logi . 


1. Wherever a logical blank is permissible, a sequence of logical blanks is 
permissible. 


2. If a symbol ends in a letter or digit, and the symbol immediately following it 
begins with a letter or digit, at least one logical blank is required to separate 
them. 


3. Embedded logical blanks are not permitted within a keyword, punctuation symbol, 
identifier, integer, or real number. If such embedded logical blanks do appear, 
the separated parts become two distinct symbols. 


4. One or more logical blanks are permitted, but not required, between any pair of 
symbols not fitting the cases covered in rules 2 and 3. 


3.2.1 Comments 


A comment in Pascal is a sequence of characters enclosed between a left and a right 
comment bracketing symbol (and including those symbols). The compiler ignores 
comments in translating your source program into object code (except that it treats 
them as logical blanks), but it copies all comments verbatim into the print file along 
with the rest of your source program. Thus they provide a means for you to insert 
explanations into your program. 


The left comment bracketing symbols are { and (*. The right comment bracketing 
symbols are } and x). Either right bracketing symbol may match either left brack- 
eting symbol. 
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Because the carriage return and line feed are part of the ASCII character set, 
comments are not limited to a single line. The following are all legal Pascal-86 
comments: 


{this is a comment} 
(x this is also a comment x) 


(xthis is 
a comment, 
too} 


3.3 Tokens 


From section 3.2, it follows that a Pascal-86 source program compilation consists of 
a sequence of symbols called tokens, or entities indivisible by logical blanks, which 
may be separated from each other by logical blanks. A token in Pascal is a keyword 
or punctuation symbol as defined in 3.1, an identifier, an integer, a real number, or 
a string. 


3.3.1 Identifiers 


Identifiers in a Pascal program are names used to denote modules, procedures, 
functions, constants, types, variables, parameters, and field designators. An identifier 
is a sequence of letters, and/or digits, of which the first must be a letter. 
An identifier may be up to 255 characters long. All characters are significant in 
distinguishing between identifiers. 


For example, the following are all legal identifiers: 
DirectorySearch COLOR pi CARS4 


You define identifiers in module and program headings, procedure and function 
declarations, constant definitions, type definitions, and variable declarations. In 
addition, certain predefined identifiers are part of the Pascal-86 language. These stand 
for predefined procedures and functions, predefined constants, and predefined types 
that you may use without defining them explicitly. Examples of predefined identifiers 
are INTEGER, REAL, MAXINT, ABS, READLN, and TEXT. Appendix F gives 
a complete list. 


The association of an identifier with the object it represents must be unique within 
the scope of the definition or declaration. (Section 4.1.2 discusses scope.) For instance, 
if you define the identifier INCREMENT as the constant 1.0 in the outer level of a 
given procedure, you cannot later declare INCREMENT a REAL variable in the 
outer level of the same procedure. 


The Pascal-86 keywords listed in section 3.1 are reserved words, i.e., you may not use 
them as identifiers. However, the directive FORWARD and the predefined identi- 
fiers are not reserved words, so you may use these names. If you use a predefined 
identifier in a declaration or definition, the effect is to redefine that identifier for the 
scope of your declaration or definition; thus the predefined meaning is not available 
within that scope. However, you can declare or define FORWARD as an identifier 
and also use it in its Pascal-defined meaning as a directive as described in 6.5—the 
context determines which meaning is intended. The scope of a predefined identifier 
is the entire compilation less any block where it is redefined. 
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3.3.2 Integers 


A literal integer is the textual representation of a decimal, 
integer. It is therefore a sequence of decimal digits; i 


A signed integer denotes a value of an integer type as defined in 5.3.1, preceded by 
an optional plus or minus sign. The integer part cannot contain embedded logical 
blanks, but logical blanks are permitted between the sign and the integer part. An 
unsigned integer denotes an integer value that is not preceded by a plus or minus 
sign. 


The following examples are all legal signed integers. Note that the four signed integers 
in the top row all represent the same value. 


3.3.3 Real Numbers 


A literal real number is the textual representation of a decimal number that includes 
a fractional part—that is, one or more digits to the right of the decimal point—or a 
decimal scale factor, or both. A signed real number is a real number preceded by an 
optional plus or a minus sign. Thus a real number has one of these two forms: 


[ sign]digits . digits[ E [ sign] digits] 
[ sign] digits E [ sign]digits 


where 
sign is a plus or a minus sign. 
digits is a sequence of one or more decimal digits. 


As the syntax shows, if a real number contains a decimal point, it must have at least 
one digit on each side of the decimal point; for example, — 1. and .5 are not legal real 
numbers. 


A real number denotes a constant value of a real type as defined in 5.3.1. It is inter- 
preted as a floating-point number in scientific notation, where the E symbol means 
“times 10 to the power.” 


The following are all legal signed real numbers: 


0.1 oY. 35 & + 0.456E+308 
BE~3 1E4932 *8,. 2218-1023 
-{.0 
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constants of the type aman nein the | OF EE (5. 2. 2). | Ho 


3.3.4 Labels 


A label is a sequence of decimal digits that marks a statement so that a GOTO 
statement may refer to it. It looks the same as a decimal integer, and is distinguished 
from other labels by its integral value. (For instance, the labels 5 and 005 are the 
same label and cannot be used in the same block.) In standard Pascal, label valies 
must lie in the range 0 to 9999, inclusive; d 1 


A label is distinguished from an integer constant by its context. If a sequence of digits 
appears in a label declaration, in a GOTO statement, or in the label position at the 
beginning of a statement, it is interpreted as a label; otherwise, it is considered an 
integer constant. 


3.3.5 Character Strings 


A literal string is a sequence of one or more characters enclosed by apostrophes. 
Strings consisting of a single enclosed character denote constants of the predefined 
type CHAR (5.2.1). Strings consisting of n enclosed characters meal 


Strings may contain any of the printable characters in the ASCII character set; 
however, an apostrophe within a string must appear twice. The printable characters 
are all the characters with code values from 20H to 7FH inclusive, as defined in 
Appendix G. 


The following are all legal strings. The first three are of type CHAR; the last two 
are of type PACKED ARRAY [1..16] OF CHAR. 


lL. A" 


2 vee 

3 venue 

4. ‘OVERFLOW ERROR 5S’ 
5. ‘This is’ 

* 8 @tring’ 
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CHAPTER 4 
PROGRAM HEADINGS, SEPARATE COMPILATION 


FACILITIES, AND LABEL DECLARATIONS 


Using the basic building blocks defined in Chapter 3, which you can think of as 
“words,” you write headings, definitions, declarations, statements, and the other larger 
constructs, or “sentences,” of the Pascal-86 language. This chapter defines the syntax 
and semantics of the “sentences” appearing at the beginning of a program, module, 
or block, before the data definitions: program headings, separate compilation facili- 
ties (module headings, interface specifications, and private headings), and label 
declarations. 


Before describing these constructs, this chapter provides necessary information on 
program structure, filling in details not covered in Chapter 2. 


4.1 Details of Program Structure 
4.1.1 Parts of a Program 


Figure 4-1 shows the parts of a standard Pascal program and of a block, in the order 
in which they must appear. 


The program heading gives the module a name. The program heading may also include 
a program parameter list, which is a list of files used for input and output in the 
program. 


The label declaration defines statement labels used in the statement part. The constant 
definitions, type definitions, and variable declarations define the data items used. The 
procedure and function declarations are blocks that define sub-programs, and may 
themselves include embedded blocks. 


The statement part is a compound statement, which consists of one or more embed- 
ded statements enclosed between the keywords BEGIN and END. These embedded 
statements specify the actions to be performed when the block is invoked during 
execution. The statement part at the outer level contains the statements that are 
invoked by the operating system to start execution of the program. 


The block shown in figure 4-1 is a basic Pascal block. Program blocks and procedure 
and function blocks consist of the basic block preceded by an appropriate heading 
and—for a program block—followed by a period. 


For an example of program structure, refer to figure 2-1. Note that there are no label 
declarations (none are needed, since no statements are labeled and there are no GOTO 
statements). Also note the block nesting in the procedure and function declarations. 
A block is always recognizable by its statement part; the other parts may be absent. 
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PROGRAM 


PROGRAM HEADING 


LABEL DECLARATION 


CONSTANT DEFINITIONS 


TYPE DEFINITIONS 


VARIABLE DECLARATIONS 


PROCEDURE AND FUNCTION 
DECLARATIONS 
(MAY INCLUDE EMBEDDED BLOCKS) 


STATEMENT PART 
(COMPOUND STATEMENT) 


. (PERIOD) 


Figure 4-1. Parts of a Standard Pascal Program and Block 121539-30 
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MAIN PROGRAM MODULE 


PROGRAM HEADING 


LABEL DECLARATION 
CONSTANT DEFINITIONS 


TYPE DEFINITIONS 
VARIABLE DECLARATIONS 


PROCEDURE AND FUNCTION 
DECLARATIONS 
(MAY INCLUDE EMBEDDED BLOCKS) 


STATEMENT PART 
(COMPOUND STATEMENT) 


. (PERIOD) 


Figure 4-2. Parts of a Pascal-86 Main Program Module 121539-31 


Figure 4-3. Parts of a Pascal-86 Non-Main Module 121539-32 
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In syntax notation, a main program module has the following form: 


‘program-heading 
block 


and the syntax of a block is: 


[ abel-dec!| 

[CONST constant-defn ; [constant-defn ;]...] 
[TYPE type-defn ; [type-defn ;]...] 

[VAR variable-decl ; [variable-decil ;]...] 
[proc-or-func ;]... 

statement-part 


In the syntax definitions, interface-spec stands for an interface specification; defn and 
dec/ stand for definition and declaration, respectively, and proc-or-func denotes either 
a procedure declaration or a function declaration. The notation for the latter indicates 
that procedure declarations and function declarations can be intermixed. 


Section 4.2 of this chapter defines module headings, interface specifications, program 
headings, private headings, and label declarations. Chapter 5 discusses data defini- 
tions and declarations (constant definitions, type definitions, and variable declara- 
tions). Chapter 6 covers procedure and function declarations, and Chapter 7 defines 
the statements that can appear in the statement part. 


4.1.2 Program Objects and Scope 
Objects in a Pascal program include modules, programs, functions, procedures, 


parameters, constants, types, variables, fields, and labels. You choose appropriate 
names as symbols for these objects; for instance, the programmer used the name 
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TreeTraversal for the program of figure 2-1, and likewise chose descriptive names for 
the constants, types, and variables in the program. Identifiers in Pascal can be as 
long as a line of text (255 characters), so you can choose names that make your 
programs easy to understand. 


A definition or declaration introduces an object and associates it with, or binds it to, 
a symbol. This symbol must be an identifier (for most objects) or a decimal integer 
constant (for a label). The scope of a definition or declaration is the part of the source 
program over which that association holds. Generally, a scope is a block, statement, 
parameter list, field designator, or other language construct, excluding any enclosed 
constructs that set up another scope for the same symbol. 


Local and Global Objects 


Objects declared or defined at the outer level of a program block, and thus usable by 
all subprograms, are global objects. Object declared or defined within a procedure or 
function are /ocal objects, said to be local to that procedure or function. When several 
programmers are working on a large program, each programmer is concerned only 
with the global objects, such as global variables shared by all parts of the eds se 

and with the local objects in 1 the procedures he is writing. N ; 


The tree traversal program, for example, defines two constants and three types, and 
declares four variables and four procedures, at its outer level. These are all global 
objects. The constants are MaxNumNodes and One; the types, Subscr, Node, and 
Tree; the variables, NodeCharacter, NodeIndex, ExpressionTree, and DataFile; the 
procedures, BuildTree, Infix, Prefix, and Postfix. The scope of these declarations and 
definitions is the entire program, excluding the one-line program heading. 


On the other hand, the local variable FindRoot is declared within the procedure 
BuildTree, so its scope is only the procedure BuildTree. This scope includes the state- 
ment part of BuildTree plus the contained procedure AddNode, but does not include 
any of the other procedures or the outer-level statement part. If the program had also 
declared a variable named FindRoot at its outer level, two variables with that name 
would exist. The scope of the inner FindRoot variable would remain the same, and 
the scope of the outer FindRoot would be the entire program except for the scope of 
the inner FindRoot. If another procedure, such as Infix, had declared a variable named 
FindRoot, the scope of that variable would be its containing procedure, so there would 
be no conflict with the other variables of the same name. 


Thus if several programmers are working on a large program, they need not care 


whether they use some of the same names for local variables. All the programmers 
need to agree upon are the names of global objects. 
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Only global data exist during the entire execution of a Pascal program; data local to 
a subprogram are created automatically each time the subprogram is invoked, and 
disappear when execution returns from the subprogram. This rule enforces program 
clarity, since the programmer must declare all permanent data in one place in the 
program—at the outer level. As a side effect, the release of local storage saves memory 
space. 


A program must open files explicitly using the predefined procedure RESET or 
REWRITE. However, the run-time system closes files automatically at the end of 
the program. 


Defining Identifiers 


The program objects represented by predefined identifiers (discussed in 3.3.1) are 
assumed to be declared or defined at the outer level of every program or module. If 
you define one of these identifiers for your own purposes, your own declaration or 
definition, within its own scope only, overrides the predefinition. Thus you need not 
be concerned with such name conflicts unless you wish to use the predefined items. 
Also, you may easily replace most predefined procedures, functions, or other objects 
with your own versions. 


All labels and identifiers you use in a program, except predefined identifiers, must be 
declared or defined for the parts of the program in which you use them. For instance, 
if a procedure in your program uses the identifiers X and Y as variables in a calcu- 
lation, you must declare them either within that procedure, within a containing 
procedure, or at the outer level of the program. This rule helps eliminate invisible 
side effects in programs, and allows the compiler to perform type and range checking 
to detect errors. 


Parameters 


A parameter list is a list of identifiers in the heading of a program, procedure, or 
function. These identifiers denote objects through which the program, procedure, or 
function communicates with its environment. Parameters define explicitly the nature 
of the interface between the program or subprogram and its environment. They also 
allow the compiler to check for certain kinds of programming errors. 


In the tree traversal program, the procedures BuildTree and AddNode have no 
parameters. The procedures Infix, Prefix, and Postfix each have one parameter: 
NodeIndex, of type Subscr. 


In a program heading, the parameters denote objects that exist outside the program— 
that is, files used for input and output. For example, the tree traversal program names 
the standard files INPUT and OUTPUT as program parameters. 


In a procedure or function heading, the parameters likewise refer to objects in the 
environment outside the procedure or function. However, these parameters match up 
with corresponding identifiers in an argument list in the statement or expression that 
invokes the procedure or function. Because of this matching, the objects inside the 
procedure or function do not need to have the same names as the corresponding objects 
outside. This naming independence is useful when you need to perform the same 
operation on several different variables in a program. 
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For instance, if you have written a matrix multiplication procedure with the heading: 


procedure MatrixMult (Matrix1, Matrix2: MatrixType; 
VAR OQutMatrix: MatrixType); 


and you need to multiply the three matrix pairs A X B, C X D, and E X F (all six 
matrices, plus the result matrices X, Y, and Z, being of type MatrixType, defined as: 


type MatrixType = array [1..10,1..10] of REAL; 
you could perform the multiplications with the statements: 


MatrixMult(A,B,X); 
MatrixMult(C,D,Y); 
MatrixMult(E,F,2); 


4.2 Program Headings and Separate 
Compilation Facilities 


This section gives the syntax and semantics of the parts of a program that establish 
its identity as a program and its division into separately compiled modules. These 
parts include the module heading, the interface specification, the program heading, 
and the private heading. 
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4.2.3 Program Heading 


The program heading gives a name to a main program module and introduces the 
private section of that module. The syntax of a program-heading is: 


PROGRAM identifier [( prog-parameter-list ) | 
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where 


identifier is the name given to the main program module. It must match 
the name given in the module heading, if there is one. 


prog-parameter-list is a list of program parameters, separated by commas, that 
are names of external objects used by the program. These 
names should be the names of file variables; objects of any 
other type cause the compiler to generate a warning. 


Pascal predefines the standard program parameters INPUT and OUTPUT, which 
are text file variables as defined in 5.3.2 and 8.7. If no file argument is given in calls 
to the predefined procedures and functions READ, READLN, GET, EOF, and 
EOLN, they assume the file INPUT. Likewise, the procedures WRITE, WRITELN, 
PUT, and PAGE assume the file OUTPUT. 


You must not declare these files as variables in your program, but you must list them 
as program parameters if you use them in your program. The appearance of these 
files as program parameters causes them to be declared implicitly in the program 
block, and the initializing statements RESET (INPUT) and REWRITE (OUTPUT) 
are automatically generated if required. 


4.3 Label Declaration 


A label declaration specifies the integers you use to label statements in the statement 
part of a block. The syntax of a Jabel declaration is: 


LABEL label [, label]... ; 


where 
label is an integer label as described in 3.3.4. 


An example is: 


LABEL 20, 40, 110 
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Each label listed in the declaration must appear in the label position of exactly one 
statement in the statement part. The scope of a label declaration is the block in which 
the declaration occurs. 


Within the scope of the declaration, integers are interpreted as references: to a label 
only when they appear in GOTO statements and in the label position of a statement. 
In all other cases, they are interpreted as signed integers. 


You need labels and label declarations only when you use GOTO statements in your 
program. It is considered good programming practice either to avoid using GOTO 
statements altogether, or to use them only when there is a very good reason for doing 
so (such as program clarity). 
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CHAPTER 5 


CONSTANTS, TYPES, AND VARIABLES 


An algorithm or computer program consists of two parts: a description of the data, 
and a description of the actions to be performed on it. To describe the data in a 
Pascal program, you write declarations and definitions; to describe the actions, you 
write statements. This chapter describes how to define your data—using constants, 
types, and variables—and denote it in statements. Chapter 7 describes how to write 
Pascal statements and the expressions within them. 


5.1 Basic Concepts 


Constants are data items whose values cannot change during execution of a program; 
variables are data items whose values can change, and which the program processes. 
Every constant and variable in a Pascal program has a type. 


The type is a central concept in Pascal. A type denotes a set of values which a data 
item can assume; any definition, declaration, or program operation that requires the 
data item to assume a value not in that set causes an error. Examples of data types 
used in other programming languages are INTEGER and REAL; these are also types 
in Pascal. However, Pascal offers a richer variety of data types than most other 
languages, and even allows you to define your own. 


The type of a variable may be either directly described in the variable declaration, 
or referenced by a type identifier. In the latter case, the identifier must first be 
described by a type definition. The compatibility of variables is based primarily on 
the types associated with them. 


Variables in Pascal can be generated statically, automatically, or dynamically. Global 
variables (those declared at the outer level of a module) are static; that is, they exist 
for the entire program run. Variables that you declare explicitly within a procedure 
or function are automatic; that is, they are generated at run time in accordance with 
the structure of the program. For example, if you have declared a certain variable 
local to a procedure in your program, one instance of that variable is created whenever 
the procedure is called, and that instance of the variable is destroyed upon return 
from that invocation. When you declare a static or automatic variable in your program 
you give the variable a name, by which you can reference it in the statements of your 
program, and a type. The block level at which you place that declaration in the 
program determines the scope of the variable, and thus determines when it is created 
and destroyed. 


For example, in the program of figure 2-1, the global (static) variables NodeCharacter, 
NodelIndex, ExpressionTree, and DataFile exist for the entire program run. In contrast, 
an instance of the local (automatic) variable FindRoot is created each time the 
BuildTree procedure is called, and this instance of the variable disappears when control 
returns from the invocation of the procedure. 


Dynamic variables, on the other hand, are generated by statements within your 
program, without regard to program structure. You do not declare them explicitly. 
You create dynamic variables using the predefined procedure NEW, and destroy them 
using the procedure DISPOSE. Whenever you call NEW to create a dynamic varia- 
ble, it assigns a value to a variable of a pointer type, which you can then use to 
reference the dynamic variable. Although a dynamic variable is not declared, it still 
has a type, which is determined by the type you declared for the pointer variable. 


5-1 


Constants, Types, and Variables Pascal-86 User’s Guide 


Dynamic variables are useful in creating complex data structures, such as linked lists 
and trees, that must change in form or size as the program runs. 


The values of Pascal variables are initially undefined, so you must explicitly initialize 
all variables in your program. This rule forces you to make clear exactly what initial 
values you are assuming. 


You may represent constants either literally, by their values (e.g., 3.14159, string, 
TRUE), or by symbolic names (e.g., PI). In the latter case, you must define the name 
and value of each constant in a constant definition. (The type of the constant is implied 
by its value.) 


The passing of data to procedures and functions by means of parameters is subject 
to special rules. Parameters are objects that differ from the types, constants, and 
variables described in this chapter. As is true for constants and variables, every 
parameter has a type. Parameters are discussed in detail in Chapter 6. 


The remainder of this chapter first discusses constant definitions and the various kinds 
of data types available in Pascal-86, giving the syntax and semantic rules for defining 
them and examples of their use with static variables. Following this, the discussion 
turns to pointer types and dynamic variables. The final sections of the chapter define 
the form of variable declarations and denotations. 


The major headings in the remainder of this chapter (Constants, Types, and Varia- 
bles) correspond to the order in which you define or declare these objects in your 
programs. Standard Pascal requires that you define or declare each object before you 
use it in another definition or declaration. (In a pointer type definition, however, you 
may make a forward reference to the base type of the pointer.) Pascal-86 does not 
make this requirement. 


5.2 Constants 


As mentioned earlier, constants are data items whose values cannot change during 
execution of a program. You may represent constants either literally (as integers, real 
numbers, or character strings as defined in Chapter 3) or as named constants. 


To use a named constant, you must first define it in a constant definition, which 
introduces an identifier as a synonym for a constant value (or for another named 
constant). Then you may use the constant identifier freely in place of its literal value 
in expressions and in any other places where a constant of its type is permitted. 


The constant definitions in a Pascal block or non-main module appear in a list follow- 
ing the keyword CONST, between the label declarations and the type definitions, as 
indicated in 4.1.1. The syntax of a constant definition (constant-defn) is as follows: 


identifier = constant 


where 
identifier is unique. 
constant is an integer (3.3.2), a real number (3.3.3), a character string 
(3.3.5), a constant identifier, or a numeric constant 
identifier. 


The constant identifier may have been defined either in a constant definition or in 
the definition of an enumerated type (5.3.1). The type of the constant identifier is 
the type of the given constant. 
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Note that a real constant (3.3.3) is always represented in TEMPREAL precision, as 
defined in 5.3.1. (See Appendix H for the internal format of TEMPREAL numbers. ) 


In Pascal-86, you may make indexed references to individual characters in a named 
string constant as if it were an array variable (5.4.2). 


The following are all legal constant definitions (to be preceded by the keyword 
CONST and separated by a semicolon if there are several, as indicated in 4.1.1): 


ScaleFactor = 12 
Gamma = 0.577216 
EulersConstant = Gamma 
fitlep. «oe eae 


Named constants allow you to write programs that are more meaningful! and easier 
to modify. For instance, if you use a constant scaling factor of 12 in a number of 
places in your program, you can first define the identifier ScaleFactor as the value 
12 as shown in the first example above; then write ScaleFactor, rather than 12, every- 
where in the program that the scale factor is needed. Someone reading the program 
can tell at once, from the name, what the constant means. If you later wish to change 
the value of the scale factor, you need make only one change in the program—just 
change the constant definition. 


5.3 Types 


Pascal is a strongly typed language. This means that every data item has a type, and 
that you must follow strict rules in the use of types in definitions, declarations, and 
expressions. The compatibility of variables depends primarily on the type associated 
with them; violation of a type compatibility rule causes an error. Strong typing enables 
the compiler to do extensive type and range checking, so that you can catch many 
program errors earlier in the development process—at compile time rather than at 
run time. Types in Pascal also allow you to phrase your program in meaningful 
terms—terms related to the problem you are solving. 


Figure 5-1 shows the relationship between the various kinds of types in Pascal-86. 
Simple types, called scalar types in standard Pascal, are types whose variables have 
a single value. Structured types are types whose variables are made up of a number 
of single values; these structured types are built up from simple types. Pointer types 
are types whose variables you use to access dynamic variables in your program. 


The type definitions in a Pascal block or non-main module appear in a list, separated 
by semi-colons, following the keyword TYPE, as defined in 4.1.1. 


A type definition associates a name (identifier) with a set of values. The syntax of a 
type-defn is: 


identifier = type-spec 


where 
identifier is unique—that is, it is not defined for any other purpose in 
that block. 
type-spec a type specification which identifies a set of values, has a form 


that depends on the type being defined. The scope of a type 
definition is the block in which the definition falls, excluding 
the parameter list associated with the block. 
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DATA TYPES 
SIMPLE 
(SCALAR) STRUCTURED POINTER 
UAN ESE ARRAY RECORD SET FILE 
PREDEFINED ENUMERATED SUBRANGE 
Figure 5-1. Data Types in Pascal 121539-33 
TYPE counter = INTEGER; 
color = Cred, yellow, blue, green, orange, violet); 
colour = color; 
Shade = color; 
primarycolor = red .. blue; 


Seo rece We. 3003 
alfa = PACKED ARRAY [{1..80] OF CHAR; 
complex = RECORD re,im: REAL END; 
person = RECORD name, firstname: alfa; 
age: integer; 
married: Boolean; 
father, child, siLbbing: tperson 3 
END; 
alphabet = SET OF CHAR; 
characters = FILE OF CHAR; 
nanuseript =. TEXTS 
Link = tcomplex; 


In the examples just given, the type counter is the same as the predefined simple type 
INTEGER. The types color, colour, and shade are enumerated types. Type alfa is an 
array type; complex and person are record types; alphabet is a set type; and charac- 
ters and manuscript are file types. (TEXT is a predefined file type.) Type Link is a 
pointer type. 


As shown in these examples, you may define a type T2 in terms of another type TI. 
In such cases, in standard Pascal you must always define T1 before using it to define 
T2. (The Pascal-86 compiler, however, does not check for this violation.) You may 
not use a recursive type definition—that is, define a type in terms of itself—except 
in a pointer type specification nested within a structured type specification, as shown 
in the type definition for person. When 1% T is used as a type-spec you may define T 
anywhere within the type definition part of that block or the type definition part of 
an enclosing block. 
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5.3.1 Simple Types 


A constant, variable, or parameter of a simple type consists of a single value. The 
type specifies the set of values to which that value must belong. For instance, the 
predefined type INTEGER includes all integers that lie within the representable 
integer range (in Pascal-86, —32767 through + 32767). Thus 5, —20000, and 999 
are acceptable values for INTEGER variables, but — 40000, 3.6, and blue are not. 


The set of values denoted by a simple type always has an order, so that one may 
compare two values of the same type and determine whether the first is greater than, 
equal to, or less than the second. 


A simple type is either an ordinal type or a real type. 


Ordinal Types 


An ordinal type is a simple type whose values can be assigned sequence numbers— 
that is, mapped onto the set of whole numbers. All types denoting a finite set of 
values, such as (red, yellow, blue) or (FALSE, TRUE), are ordinal, since you can 
Saake the values. The predefined Pascal-86 types INTEGER, WORD, and 
LONGINT are also ordinal. 


The predefined functions ORD, 


CHR, PRED, and SCC eta on 
the mapping between ordinal types and the whole numbers. ORD, LORD, and WR 4 
take an expression of ordinal type and return a value of type INTEGER, Bo! NGI i, 
R espectively. CHR takes an integer expression and returns the corre- 
sponding value of type CHAR (defined in the next section). PRED and SUCC take 
an expression of ordinal type and return the value of the type that precedes or succeeds 
it, respectively, in the ordering. Complete descriptions of these functions are given 
in 8.1. 


Predefined Ordinal Types. Three ordinal types are predefined in standard Pascal. 
These types are denoted, respectively, by the type identifiers INTEGER, BOOLEAN, 
sti CHAR. In = ; 


The type definition for a predefined ordinal type is specified at the outermost level of 
the program. You operate on values of a predefined ordinal type by using operators 
such as addition, comparison, and the Boolean AND, and by invoking predefined 
procedures and functions. 


INTEGER is an ordinal type whose values are a subset of the whole numbers. In 
Pascal-86, these values are two bytes long and lie in the range — 32767 through 
+32767. INTEGER values are denoted by signed integers (3.3.2) whose values fall 
within the defined subset. The predefined constant MAXINT specifies the upper 
bound of the INTEGER range. (In Pascal-86, MAXINT has a value of 32767.) 
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BOOLEAN is an ordinal type whose values are the truth values denoted by the 
predefined identifiers TRUE and FALSE, where FALSE precedes TRUE. Boolean 
operators are defined on values of type BOOLEAN, and the results of relational 
operators are always of type BOOLEAN. 


CHAR is an ordinal type whose values are a defined set of characters. In Pascal-86, 
this set is the ASCII character set. They are denoted by the characters th ] 
enclosed within apostrophes stant identifi 


Note that values of type CHAR always consist of a single character; apostrophe- 
enclosed character strings of more than one character are of type PACKED ARRAY 
[1..n] OF CHAR, as discussed in 5.3.2. 


The ordering properties of the character values are defined by the ordering properties 
(ordinal values) of the characters in the character set. In other words, the relationship 
between character values cl and c2 is the same as the relationship between ORD(c1) 
and ORD(c2), as defined in 8.1.1. In all Pascal implementations, the following 
relations hold: 


¢ The subset of character values representing the digits 0 to 9 is ordered numeri- 
cally and is contiguous. 


e The subset of character values representing the upper-case letters A to Z, if 
available, is ordered alphabetically, but is not necessarily contiguous. 


¢ The subset of character values representing the lower-case letters a to z, if avail- 
able, is ordered alphabetically, but is not necessarily contiguous. 


Appendix G gives the ordering of the character set defined for Pascal-86 (the ASCII 
set). 


Enumerated Types. An enumerated type is an ordinal type you define yourself by 
specifying a list of items; for instance, a list of colors. These items, represented by 
identifiers, are the set of values that variables of the enumerated type can assume. 
For instance, if you define a type called primarycolor consisting of red, yellow, and 
blue, and then define a variable of that type called wallcolor, the only permissible 
values for wallcolor would be red, yellow, and blue. 


The ordering of the values of an enumerated type is determined by the order in which 
the identifiers are named in the type-spec, which has the syntax: 


( identifier [, identifier]... ) 


All the identifiers in the list are unique—that is, none appears in the list more than 
once, and none is defined for any other purpose in that block. Naming these identi- 
fiers in the enumerated type-spec automatically defines them as constants of that 


type. 
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Examples of enumerated type-specs: 


Cred, yellow, blue, green, orange, violet) 
Cclub, diamond, heart, spade) 

(Monday, Tuesday, Wednesday, Thursday, Friday, 
Saturday, Sunday) 


Enumerated types allow you to call the items you are dealing with by meaningful 
names, instead of having to use objects of a more general type (such as integers or 
Boolean variables) to represent them. Enumerated types can be extremely helpful to 
you in writing readable, understandable programs. 


Also note that the built-in ordering in enumerated types allows you to compare values 
and variables of these types. For instance, if you define a type SUIT using the second 
type specification given above, a variable of type SUIT whose value is spade will be 
greater than a variable whose value is club. 


The Pascal-86 predefined type AT87EXCEPTIONS, discussed in 8.10, is an 
enumerated type. 


Subrange Types. A subrange type is a type you define as a subrange of an ordinal 
type, called the host type. A subrange type denotes a consecutive subset of the values 
of a previously defined type, such as the integers 1 through 100, the integers —10 
through +10, or the days Monday through Friday. To specify a subrange type, you 
must identify the smallest and the largest value in the subrange. A subrange type- 
spec has the syntax: 


ordinal-constant .. ordinal-constant 


where the two ordinal-constants are constants of the host type. The first constant 
specifies the lower bound of the subrange, and the second, the upper bound. The 
subrange is a closed interval—that is, the bounds are included. The first constant 
must not be greater than the second constant. 


A variable of a subrange type possesses all the properties of a variable of the host 
type, with the restriction that its value must lie within the specified range. 


Examples of valid subrange type-specs: 


1..100 
-10..+10 
Monday..Friday 


The third example assumes that an enumerated type including the constants Monday 
and Friday has already been defined—for instance, the third example in the preced- 
ing section. 


Examples of invalid subrange type-specs: 
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In the first example, the subrange bounds are of incompatible types. The second 
example has the lower bound greater than the higher bound. 


Subrange types allow you to specify bounds on the values in your program when the 
problem so dictates. The compiler can then perform range checking to help detect 
errors. If the bounds are exceeded during a program run, an error will be reported if 
you compiled your program using the CHECK control (10.4.1). Note that you cannot 
specify bounds for real numbers, since real types are not ordinal. 


Real Types 


A real type is a simple type that represents a real (floating-point) number. There are 
many real numbers (limited only by the discreteness of internal computer represen- 
tations) whose values fall between two given real numbers. Hence, it is impossible to 
assign meaningful integral sequence numbers to the real numbers. Certain operations 
that can be performed on variables of ordinal types are invalid when applied to varia- 
bles of a real type. These include the ordinal functions ORD, LOR: D, CHR, 
PRED, and SUCC, which are described in 8.1. = - 


Pascal-86 predefines three real types: REAL, LONG 
type-spec for these types are the identifiers REAL, | L and TEM! AL, 
respectively. You operate on values of a real type by neig Operators ot such as > ade dition 
and comparison, and by invoking predefined procedures and functions. 


REAL is a real type whose values are a subset of the real numbers. In Pascal-86, 
REAL values are single-precision floating-point numbers, which are always four bytes 
long and have 24 bits of precision. (Appendix H gives the range of REAL values.) 
Values of type REAL are denoted by real numbers (3.3.3) whose values fall within 
the defined subset. 


5.3.2 Structured Types 


Variables of a structured type are collections of values. A structured type is charac- 
terized by the types of its components and by its structuring method. Subject to certain 
rules and restrictions, component types of a structured type may themselves be struc- 
tured, resulting in a structured type with several levels of structuring. For instance, 
you might declare an array of records, each of which contains another array. 


There are four structuring methods, or type constructors, in Pascal: ARRAY, 
RECORD, SET, and FILE. A structured type-spec has one of the following forms: 


[PACKED] array-type 
[PACKED] record-type 
[PACKED] set-type 
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[PACKED] file-type 
identifier 


where 


array-type, are as defined in the following sections. 
record-type, 

set-type, 

file-type, 


identifier is the name of a previously defined structured type. 


The PACKED Prefix 


By prefixing a structured type specification with the keyword PACKED, you direct 
the compiler to economize storage for variables of the specified type. Such packing 
will be done even at the price of some loss in efficiency of access, and even if this 
may increase the size of the compiled code needed to access components of the struc- 
ture. Thus, your decision whether to use packed or unpacked structures will depend 
on which is more important to you: saving data space, or saving code space and 
increasing speed of access to structure elements. The internal representation of packed 
structures may differ from compiler to compiler. 


If a type has several levels of structuring, an occurrence of the PACKED prefix affects 
only the level of the structured type whose definition it precedes. If a component is 
itself structured, the component’s representation is packed only if the PACKED prefix 
occurs in the definition of the component type as well. 


The predefined procedures PACK and UNPACK convert the format of unpacked 
array variables to packed, and vice versa. These procedures are described in 8.6. 


Array Types 


An array type is a structured type consisting of a fixed number of items, or compo- 
nents, that are all of the same type (called the component type). For instance, you 
might define an array of 100 integers. A component of an array is designated by an 
array selector, or index, which is a value belonging to the index type. The index type, 
which must be an ordinal type, 1s usually a programmer-defined scalar type or a 
subrange of the type INTEGER. Given a value of the index type, an array selector 
yields a value of the component type. The time needed for a selection does not depend 
on the value of the index; thus an array is a random-access structure. 


The array-type specification defines the component type and the index type. Its syntax 
is: 


ARRAY [  index-type [, index-type]... ] OF component-type 


where 
index-type is the type specification of an ordinal type. 
component-type is any type specification. 


Examples of one-dimensional array-type specifications: 


ARRAY [1..100] OF REAL 
ARRAY [Boolean] OF color 
ARRAY [Monday..Friday] OF AppointmentSchedule 
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If the component type of an array type is also an array type, resulting in an array of 
two or more dimensions, you may use an abbreviated form of definition. In this form, 
the index type of the component and the index type of the array are enclosed within 
the same set of square brackets. For example: 


ARRAY [Boolean] OF ARRAY [ 
OF ARRAY [size] OF © 


is equivalent to: 


ARRAY [Boolean, 1.. 


and: 

PACKED ARRAY [1..10] OF PACKED ARRAY [1..8] OF Boolean 
is equivalent to: 

PACKED ARRAY [1..10, 1..8] OF Boolean 

The term string type is a generic term for any type defined to be: 


PACKED ARRAY [1..n] OF CHAR 


where 
n is an integer constant between | and MAXLONGINT. 


In program statements, you refer to a component of an array variable by giving the 
variable’s denotation (the name of the array variable, if it is not itself a component) 
followed by an index expression enclosed in brackets. This index expression must be 
assignment-compatible with the index type of the array type, as defined in 5.3.4. 
Section 5.4.2 gives syntactic details and examples. 


Record Types 


A record type is a structured type consisting of a fixed number of components, possi- 
bly of different types. For instance, a record might consist of a person’s name (a 
character string), height (an integer), and weight (an integer). Records in Pascal are 
similar to structures in ASM86 and in PL/M. 


Components of a record, called fields, are selected by means of unique identifiers, 
called field identifiers, which are defined in the record type specification. As with 
arrays, the time needed to access a selected component does not depend on the selec- 
tor, so a record is a random-access structure. 


A record type may be specified as consisting of several variants. The presence of 
variants implies that different variables, although of the same record type, may assume 
structures that differ in a certain manner. The difference may consist of a different 
number and different types of components. For example, one variant of a record type 
might consist of a person’s name, height, weight, and year of birth; another variant 
might consist of the person’s name, height, weight, sex, and place of birth. 


The variant which is assumed by the current value of a record variable may be 
indicated by a component field which is common to all variants and is called the tag 
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field. Usually, the part common to all variants will consist of several components, 
including the tag field. 


4 
The syntax of a record-type specification is: 


RECORD 
[field-list[3] ] 
END 


where field-list is either: 


field-id[, field-id|... : type-spec[; 
field-id[, field-id|... : type-spec]... 


or: 

[field-id[, field-id]... : type-spec[; 

field-id{, field-id|... : type-spec]... 3] 

CASE [field-id :]tagtype-id OF 

case-const[, case-const]... : ( [field-list{;] ] ) [; 
case-const[, case-const]... : ( [field-list[;] ] )]... 


In this syntax, each field-id (field identifier) is a unique identifier, distinct from all 
other field-id’s at the same level in the record specification. The type-spec for each 
record component can be any type-spec defined in the program, including another 
record type specification. The portion of the syntax between the keywords CASE and 
alled a tag; the tagtype-id is the identifier of any ordinal type © 
Ly Each case-const is a unique ordinal constant of a type that is compatible 
with the tag type. The set of case constant values need not equal the set of values in 
the tag type. 


The occurrence of an identifier as a field-id is a definition of the identifier as a field 
identifier, which is the name of a component of a record. The scope of this definition 
is as follows: 


e« All field designators that contain a record variable whose type is the record type 
in which the field-id occurs, plus 


¢ The statement of each WITH statement that specifies a record variable whose 
type is the record type in which the field-id occurs 


To refer to a component of a record variable in program statements, you use a fie/d 
designator. A field designator consists of the record variable’s denotation (the name 
of the record variable, if it is not itself a component), followed by the field identifier 
of the component. Section 5.4.2 gives syntactic details and examples. 


The WITH statement, described in 7.2.9, allows you to use a shorter notation in 
referring to components of a record variable: in the statement embedded inside the 
WITH statement, you need only name the individual field identifiers rather than the 
full field designators. 


Examples of record-type specifications for simple (non-variant) record types: 


RECORD day: oe oe 
month: lew TOYS 
year: integer; 

END 


Constants, Types, and Variables 


RECORD node: PACKED ARRAY [1..20] OF CHAR; 
leftbranch, rightbranch: 


END 
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tTreeElement; 


In the first example, the field identifiers are day, month, and year; in the second, they 


are node, leftbranch, and rightbranch. If you declare a record variable 


of the first 


type and call it TODAYSDATE, for example, you refer to the fields of that variable 
using the field designators TODAYSDATE.DAY, TODAYSDATE.MONTH, and 


TODAYSDATE. YEAR. 


The second form of the field-list in the syntax denotes a variant record type. The 
variant part begins with the keyword CASE. Note that this form of the syntax is 
defined recursively, since it contains a field-list. The variant part provides for the 
specification of a tag type with an optional tag field (field-id). If present, the tag field 
contains a value indicating which variant is assumed by the record variable at a given 
time. An error occurs if you make a reference to a field of a variant other than the 
current variant; however, the Pascal-86 compiler does not detect this error. 


Each variant is introduced by one or more constants. All the case constants 
and are of an ordinal type that is compatible (5.3.4) with the tag type 


For a record with a tag field, a change of variant occurs only when your program 
assigns to the tag field a value associated with a different variant. At that moment, 
fields associated with the previous variant cease to exist, and those associated with 
the new variant come into existence with undefined values. 


For a variant record without a tag field, a change of variant occurs when your program 
performs an assignment to a field that is associated with a new variant. Again, fields 
associated with the previous variant cease to exist, and those associated with the new 


variant come into existence with undefined values. 


Examples of record-type specifications with variants: 


RECORD x, y: real; 
area: real; 
CASE s: shape OF 
triangle: (side: real; 
inclination, anglei, 
angle); 
rectangle: (side1!1, side2: real; 
skew, angle3: angle); 
cirele: (diameter: real); 
END 
RECORD title: alfa; 
CASE p: pubtype OF 
book: Cauthor, publisher: alfa; 
copyrightdate: integer); 
album: Clabel: alfa; 
recordingdate: integer; 
CASE recordingtype OF 
popular: artist: al 
classical: Corchestra: 
conductor: 
spoken: (narrator: 
humorous: 
END 


angle: 


fas 
alfa; 
alfa); 
alfa; 
Boolean)); 
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Set Types 


A set type is a structured type consisting of a collection of objects. Examples are the 
set of alphanumeric characters, the set of positive integers less than or equal to 100, 
and the set of ingredients (out of a finite number of possible ingredients) called for 
in a recipe. Pascal defines a number of operators—such as union, intersection, and 
inclusion—on set-type operands. These are described in 7.1.6 and 7.1.7. 


In Pascal, all members of a set must be of i same e type, called the base type, which 


A set type specification, or set-type in the syntax, defines all the values that are possi- 
ble members of a set of that type. In mathematical terms, it defines the power set, or 
collection of all subsets, of the base type (recall that a type is itself a set, that is, a 
collection of permissible values). Its syntax is: 


SET QF ordinal-type 


where 


ordinal-type is the base type. It may be the name of a predefined or 
userdefined simple, enumerated or subrange type { : 
: r the typ 
fication of an enumerated or subrange type. Restrictions on 
set elements in Pascal-86 are given in Appendix C. 


Examples of set-type specifications are: 


SET OF 1.<1868 

SET OF CHAR 

SET OF color (* color * Cred, yellow, blue, green, 
orange, violet) *) 


The value of an object of a set type is denoted by listing all its members within 
brackets, separated by commas. The elements listed in brackets, which may themselves 
pressions, all must be of the base t 


denotes 
the empty set, which contains no elements and belongs to every set type. The set 
[X..Y] denotes the set of all values of the base type within the closed interval from 
X to Y. For instance, [1..100] denotes the set of all integers from 1 to 100. (Note the 
analogy, in both syntax and meaning, to a subrange type.) If X is greater than Y (in 
ordinal value), then [X..Y] denotes the empty set. 


For example, the following are all permissible values for a variable of the set type 
SET OF color defined above: 


[eed «cs Bivel fred, blue] [blue] 
[yellow, blue, red] [blue, red] [ ] 
[red..blue, orange] 


Since a set is a collection of values in which order does not matter, the first two sets 
in the first column are equivalent; likewise, the two sets in the second column are 
equivalent. 
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File Types 


File types in Pascal allow variables to correspond to physical files, such as disk files, 
in the world outside the program. Thus they are the means by which a Pascal program 
obtains input and output data. 


You specify the files your program uses as parameters in the program heading at the 
beginning of your main program block. Within your Pascal program, your file type 
definitions and variable declarations are independent of the nature of the physical 
files with which they are associated. You specify the logical file/ ei file associ- 
ation by using the file presen tion feature descri i aming the 


A Pascal program views a physical file as a variable of a file type, which is structured 
like a magnetic tape. A file type consists of a sequence of components, like blocks on 
a tape, that are all of the same type. The number of components, called the Jength of 
the file, is not fixed, so your program can add or delete components as it runs. You 
do this by appending components, one by one, to the end of the file. Only one compo- 
nent of a file is accessible at any time, and you can change the currently accessible 
component only by moving sequentially through the file. Thus a file is a sequential- 
access structure. 


A file with zero components is called empty. 
The syntax of a file-type specification is: 
FILE OF type-spec 


The type-spec can be any type-spec defined in this chapter, except a file type or a 
type that contains a file. 


Examples of file-type specifications (given the sample type definitions in 5.3): 


FILE OF CHAR 
FILE OF person 
PILE GF VaactB 
FILE OF eolor 


A file variable can be a text file or a non-text file. Text files are of the predefined 
file type TEXT, which has components of type CHAR and is substructured into lines 
terminated by a special sequence of characters called the /ine marker. In the 
Pascal-86 logical record system (K.3), the line marker the SIT wo character, 
equence carriage return and line feed. Pas 4 nt : 


tL ? } ers. The predefine msitemipctcen 
eters INPUT and OUTPUT are text files. Neu text files are any files not declared 
to be of type TEXT. 
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You can open a file for reading or writing, read or write one file component (one 
character for a text file), read or write a sequence of file components, and check for 
the end of an input file. On text files, you may also read a sequence of characters 
from a line and skip to the next line, write a line, check for the end of the current 
line, and write a form feed indicator to start a new page of printed output. You 
perform all these operations by using the predefined file procedures described in 8.7. 
Note that the nature of your physical file may impose restrictions; for instance, you 
cannot read from a file connected to a line printer or write to a file connected to a 
console keyboard. 


In standard Pascal there is no procedure for closing a file. Files are closed automati- 
cally when execution returns from the program block. The procedure for closing a 
file in Pascal-86 is outlined in Appendix B. 


Whenever you declare a file variable F with components of type T, this also causes 
the implicit declaration of a variable of type T, denoted by F t or F@. The prede- 
fined file input and output procedures fill, empty, and test this variable, called the 
buffer variable of the file. As long as the value of the buffer variable is defined, you 
may use it in expressions just as you would any other variable of type T. The syntax 
of the buffer variable is, as already suggested: | 


file-variable * or file-variable@ 


where 


file-variable is the name of a file variable. (The t and @ are 
interchangeable. ) 


Sections 8.7, 8.2.2, and 8.2.3 give a fuller explanation of file input and output opera- 
tions, and the sample programs in Chapter 9 illustrate these operations. 


5.3.3 Pointer Types 


A pointer type is a special type that represents an address—i.e., points to an area of 
storage. You use pointer types to allocate, access, and deallocate dynamic variables. 


You generate dynamic variables within your program as you need them, rather than 
declaring them explicitly within a block. Dynamic variables are useful in creating 
complex data structures, such as linked lists and trees, that must change in size and 
form as the program runs. 


The type-spec for a pointer type has the syntax: 


+ type-id or @ type-id 


where 
type-id is the identifier of a type (this may be another pointer type). 


A pointer type thus consists of an unbounded set of values pointing to variables of 
the same type—the type specified in the syntax just given. (The * and @ are inter- 
changeable. ) 


You create a dynamic variable by calling the predefined procedure NEW with a 
pointer variable as an argument. NEW allocates a variable of that pointer’s base 
type, and also assigns a value to the pointer so that it points to the newly allocated 
dynamic variable. The storage for dynamic variables is taken from a special pool of 
memory called the heap, which is provided through the Pascal run-time system. You 
cannot use the heap except as described here, by means of NEW, referenced varia- 
bles, and DISPOSE. 
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Once you have allocated a dynamic variable, you access it as a referenced variable 
by referring to the associated pointer variable with the syntax: 


pointer-id * or pointer-id @ 


which is referred to as dereferencing the pointer, and is interpreted to mean “‘the 
variable pointed to by pointer-id,” where pointer-id is the name of a pointer variable. 
(The t and @ are interchangeable.) For example, if P is declared as a variable of 
type t T, then P denotes that pointer variable and its value, whereas P t denotes the 
dynamic variable of type T that is referenced by pointer P. 


When you have finished using a dynamic variable, you may de-allocate it by calling 
the procedure DISPOSE. This causes the variable to become undefined and frees its 
storage on the heap for other dynamic variables. 


Because of the special purpose of pointer types, no operations are defined on objects 
of this type except assignment and test for equality; that is, you can assign the value 
of one pointer variable to another or compare two pointer values, as long as they are 
both pointers to the same type. 


Two pointer variables have the same type only if they are declared as follows: 
VAR I,J: tINTEGER; 
or: 


TYPE INTEGER_PTR = tINTEGER; 
VAR I: INTEGER_PTR; 
J: INTEGER_PTR; 


Because each type specification defines a new and different type (5.3.4), when I and 
J are defined as: 


VAR I: tINTEGER; 
J: tINTEGER; 


they have different, and incompatible, types. 


If two pointers are equal, the dynamic variables that they point to always occupy the 
same storage space. However, the internal representation of a pointer value is not 
defined by the language, so you should not attempt to work with it directly in your 
program. 


The pointer value NIL belongs to every pointer type; it points to no object at all. You 
may assign the value NIL to a pointer to indicate, for instance, the end of a linked 
list. 


Because pointer variables may also occur as components of structured variables which 
are themselves dynamically generated, the use of pointers permits you to represent 
any finite graph. 


It is best to take special care in the use of dynamic variables in your programs. 
Programs using dynamic variables are more prone to logic errors than those using 
only static variables, and are generally more difficult to debug. 


Sample Program 8 in Chapter 9 illustrates the use of dynamic variables. 
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5.3.4 Type Compatibility 


This section gives the rules you must follow to make the types of your program objects 
consistent. It defines two terms used in many other sections of this manual—compat- 
ible and assignment-compatible. As a foundation for these definitions, it first defines 
real, integer, and string types. 


Two types may be said to be compatible, whereas an expression may be said to be 
assignment-compatible with a type. Assignment compatibility is the more important 
concept to remember when you are writing programs. The compatibility of types is 
the basis for defining assignment compatibility. 


Section 6.4.7 defines the compatibility of parameter lists. 


With one exception, each instance of a type specification in a Pascal program defines 
a unique type. The one exception is the type specification that consists of a single 
identifier, which serves only to refer to a type object that has already been defined 
and does not generate a new one. For example, given: 


TYPE color = Cred, yellow, blue, green, 
orange, violet); 
colour = color; 


the identifiers color and colour are synonymous names for the same type. 


With few exceptions, you can combine data objects in computations only if they have 
the same type. This section defines terms used in later sections of this manual to 
describe those objects of different types that can be combined in given types of 
computations. 


A ope ie is an eget type if it is the same as any one of the predefined types INTEGER, 
v ), or LC WY or is a valid subrange of these types. 


A_ type is a real type if it is the same as one of the predefined types REAL, 


A type is a string type if it is defined to be: 


PACKED ARRAY [1..n] OF CHAR 


where 
n is an integer constant between | and MAXLONGINT. 


Two types are compatible if any one of the following is true: 
e¢ They are the same type. 
¢ One is a subrange of the other, or both are subranges of the same type. 


¢ They are set types having compatible base types, and are either both packed or 
both unpacked. 


¢ They are string types with the same number of components. 
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For example, given the following type definitions: 


TYPE inttypet = INTEGER; 
inttype2 = 1..10; 
inttype3 = 11..20; 


colortypet = (red, yellow, blue, green, orange, 
violet, brown, black); 
Cred..blue); 

Cbrown.. black); 


colortype2 
colortype3 


settypei = SET OF colortypel; 
settype2 = SET OF colortype2; 
settype3 = SET OF colortype3; 


card = ARRAY [1..80] OF CHAR; 


line = ARRAY [1..80] OF CHAR; 
alfa = PACKED ARRAY [1..80] OF CHAR; 
beta = PACKED ARRAY [1..80] OF CHAR; 


person = RECORD name, firstname: alfa; 
age: integer; 
married: Boolean; 
father, child, sibling: ftperson; 
END; 


then inttypel, inttype2, and inttype3 are compatible; colortypel, colortype2, and 
colortype3 are compatible; and settypel, settype2, and settype3 are compatible. The 
identifiers card and line denote different and incompatible types. On the other hand, 
alfa and beta denote different but compatible types, because they are string types. 
Note also that the types of the father, child, and sibling fields of a person record are 
not compatible with person pointers outside of person records, because the pointer 
type specification has not been named. 


An expression E of type T2 is assignment-compatible with type Tl if any of the 
following statements are true: 


e Tl and T2 are the same type, which is neither a file type nor a structured type 
that contains a file type in any of its substructures. 


¢ Tl isa real type and T2 is an integer or real type, and the value of expression E 
is within the range specified by T1. 


¢ TI and T2 are compatible ordinal types, and the value of expression E is within 
the range specified by the type T1. 


¢ T1 and T2 are compatible set types, and all the members of the set given by set 
expression E are within the range specified by the base type of T1. 


¢ T1 and T2 are compatible string types. 
e TI is of type PACKED ARRAY [1...1] of CHAR, and T2 is a CHAR TYPE. 


At any place where the rule of assignment compatibility applies, any one of the 
following situations causes an error: 


¢ Tl and T2 are compatible ordinal types, and the value of expression E is not 
within the range specified by T1. 


¢ Tl and T2 are compatible set types, and any member of set expression E is not 
within the range specified by the base type of set type T1. 


¢ TI isa real type and T2 is any real or integer type, and the value of expression 
E is outside the range specified by T2. 
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For example, given the following type definitions: 
TYPE inttype1 = INTEGER; 
realtypel = REAL; 


colortypel = Cred, yellow, blue, green, orange, 
violet, brown, black); 

colortype2 = Cred..blue); 

colortype3 = Cbrown..black); 

colourtype1 = colortypel; 


settypet SET OF colortypetl; 
settype2 = SET OF colortype2; 
settype3 = SET OF colortype3; 


Then expressions of type colortypel are assignment-compatible with type colourtypel, 
and vice versa. Expressions of inttypel are assignment-compatible with realtypel, but 
expressions of realtypel are not compatible with expressions of inttypel. Expressions 
of colortype2 and colortype3 are assignment-compatible with colortypel and 
colourtypel, but expressions of colortype2 are never assignment-compatible with 
colortype3, nor are expressions of colortype3 assignment-compatible with colortype2 
(the two types are compatible, but their expression values cannot fall within the same 
subrange). Also, expressions of settype2 and settype3 are always assignment-compat- 
ible with settypel. 


5.4 Variables 
5.4.1 Variable Declarations 


Variables are items of data whose values can change, and which the program manip- 
ulates. You must declare each variable in your Pascal program by means of a varia- 
ble declaration, which assigns it a name and a type. The variable declarations in a 
Pascal block or non-main module appear in a list, separated by semicolons, following 
the keyword VAR (2.5.2). 


The syntax of a variable declaration (variable-dec/) is: 
identifier[, identifier]... +: type-spec; 


where each identifier is unique, and type-spec is as defined in 5.3. The variable decla- 
ration defines all the identifiers in the list to be distinct variables of the given type. 
The scope of a variable declaration is the block in which the declaration occurs. 


Assuming your program includes the sample type definitions given in 5.3, the follow- 
ing are all legal variable declarations: 


VAR x,y: REAL; 
u,v: complex; 


operator: (Cplus, minus, times); 
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ARRAY [0..63] OF REAL; 

ARRAY [color, BOOLEAN] OF complex; 
color : 

f: FILE OF GHAR; 

huet,hue2: SET OF color; 

pi,p2: tperson; 


oo w 


5.4.2 Variable Denotations 
When you use variables in expressions and statements in your program, you may 


designate an entire variable, a component of a structured variable, or a referenced 
variable. 


Entire Variables 
An entire variable is denoted by its identifier. Thus its syntax is simply: 
identifier 


For instance, if you declared a REAL variable x as in 5.4.1, you would use the identi- 
fier x to stand for the variable in expressions and statements. 


Components of Array Variables 


A component of an array variable is denoted by an indexed variable, which is the 
array variable’s denotation followed by an index expression enclosed in brackets. If 
the array variable is itself a component of an array variable, you may use an abbre- 
viated form in which both index expressions are enclosed in the same set of brackets. 


Thus the syntax of an indexed variable is: 
array-variable [ expression[, expression]... | 


where array-variable is the denotation of an array variable, and each expression is an 
index expression of any ordinal type. The index expressions need not have the same 
type as the corresponding index type of the array, though the two must be assign- 
ment-compatible (5.3.4). 


Assuming that your program makes the sample variable declarations given in 5.4.1, 
the following are all legal denotations of components of array variables: 


a [12] 
3 [i+ j] 


b [red] [true] 
b [red, true] 


if the value of i 


Note that a 
63. 


j] is permissible onl j is within the range 0 through 


not on 
a component of the two-dimensional array b. The last two denotations, which are 
equivalent, stand for a single scalar component. 
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Components of Record Variables 

A component of a record variable is denoted by a field designator, which consists of 
the record variable’s denotation followed by a dot, followed by the field identifier of 
the component. The syntax of a field designator, therefore, is: 


record-variable ._ field-id 


where 
record-variable is the denotation of a record variable. 
field-id is the field identifier of the component. 


Assuming the sample type definitions given in 5.3 and the sample variable declara- 
tions in 5.4.1, the following are examples of field designators: 


u.re 
b {red,TRUE].im 
p2t.size 


Inside a WITH statement, you may use a shorter form—the field identifier only—to 
denote a record component, as described in 7.2.9. 


Components of File Variables 


At any time, only one component of a file variable may be referenced; the position of 
the file determines which component. This component is called the current file 
component, and is denoted by the buffer variable of the file. The syntax of a buffer 
variable is: 


file-variable * or  file-variable@ 


where 


file-variable is the denotation of the file variable. (The * and @ are inter- 
changeable. ) 


Hence, every declaration of a file variable F with components of type T implies the 
additional declaration of a variable of type T, denoted by Ft or F@. For instance, 
assuming the sample variable declarations in section 5.4.1, the buffer variable ft 
exists and is of type CHAR. You use the buffer variable to append components to 
the file during generation and to access the file during inspection. To change the 
position of a file, you use the file input and output procedures described in 8.7. 


An error occurs if you alter the position of a file F while the buffer variable F t is 
either an argument to a variable parameter or an element of the record variable list 
of an active WITH statement. However, the Pascal-86 compiler does not detect this 
error. 


Referenced Variables 


A dynamic variable you allocate using the predefined procedure NEW (8.5.1) exists 
until you deallocate it with the predefined procedure DISPOSE (8.5.2). Once you 
have allocated a dynamic variable, you access it as a referenced variable by referring 
to the associated pointer variable, with the syntax: 


pointer-variable + or file variable@ 
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which is interpreted to mean “the variable pointed to by pointer-variable,’ where 
pointer-variable is the denotation of a pointer variable. (The ?t and @ are inter- 
changeable.) For example, if P is declared a variable of type  T, then P denotes that 
pointer variable and its pointer value, whereas P t denotes the variable of type T 
that is referenced by pointer P. 


An error occurs if the pointer value is NIL (pointing to no value) or undefined at the 
time you use it to reference a dynamic variable. 


Assuming the sample type definitions given in 5.3 and the sample variable declara- 
tions in 5.4.1, the following examples of referenced variables are valid: 


pit.father 
pit.sibling@.child 


22 


6.1 Basic Concepts 


Procedures and functions are subprograms that are contained within your main 
program and that may be nested within one another. They are callable from your 
main program, from containing procedures and functions, and from themselves. You 
activate a procedure (that is, invoke it or transfer control to its statement part) by 
using a procedure statement. You activate a function by referencing it in an expres- 
sion within any statement. 


A procedure or function declaration consists of a heading and either a block or the 
directive FOR WARD. The heading consists of an identifier, by which the procedure 
or function is referenced, and a list of parameters. 


The block consists of a compound statement which may contain embedded state- 
ments. The block also may include a set of constant definitions, type definitions, 
variable declarations, and additional procedure and function declarations. The state- 
ment part of the block specifies the actions to be performed when the procedure or 
function is invoked. 


As described in 4.1.2, the constants, types, variables, procedures, and functions defined 
or declared in the block can be referenced only within the procedure or function 
itself, and are therefore called /oca/ to the procedure. Their identifiers refer to them 
only within the program text that constitutes the procedure or function declaration, 
which is called the scope of the local declarations and definitions. Since you may 
declare procedures and functions local to other procedures and functions, scope may 
be nested. Entities that you declare at the outer level of a module, i.e., not local to 
any procedure or function, are called g/obal. 


A procedure or function has a fixed number of parameters, each denoted within the 
procedure by an identifier. These parameters denote program objects through which 
the procedure or function communicates with its environment. When you invoke the 
procedure or function, you must indicate an actual quantity, or argument, to corre- 
spond to each parameter. 


You declare functions analogously to procedures; the only difference is that a function 
yields a result, which you must specify in the function declaration. You may therefore 
use functions as operands in expressions. In order to eliminate side effects, you should 
avoid making assignments to non-local variables and variable parameters within 
functions. 


6.2 Procedure Declarations 


A procedure declaration associates an identifier with a part of a program so that you 
may activate it via procedure statements, as described in 7.2.2. Its syntax 1s: 


PROCEDURE jidentifier{€ parameter-list )] ; 
block 


or: 


PROCEDURE jdentifier[( parameter-list )] ; 
FORWARD 
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The identifier in the procedure heading, which must be unique, is the name you use 
in a procedure statement to invoke the procedure. The syntax of a parameter-list is 
given in 6.4.1, and the syntax of a block is specified in 2.1. For an explanation of the 
second form of the procedure declaration, using the FORWARD directive, see 6.5. 


The scope of the declaration of a procedure identifier is the block in which the proce- 
dure declaration occurs. 


When you use the procedure identifier in a procedure statement within the proce- 
dure’s block, you cause the procedure to be executed recursively. 


The following are examples of procedure declarations: 


procedure Product(var ProdMatrix : Matrices; 
OneMatrix,TwoMatrix : Matrices); 

var I, J, K, Result : integer; 

begin 


for I := 1 to MatrixSize do 
for J := 1 to MatrixSize do 
begin 
Result := 0; 
for K := 1 to MatrixSize do 


Result := Result + OneMatrixf{I,K] * TwoMatrix[K, J]; 


ProdMatrix{I,J] := Result 
end 
end; C* Product *) 


procedure BuildTree; 
var FindRoot : Boolean; 


procedure AddNode; (* add a node to the tree *) 
begin 
write€(NodeCharacter : 3, NodelIndex : 3); 
with ExpressionTree[NodeIndex] do 
begin 
Symbol := NodeCharacter; 
Read(DataFile,Left); write(€Left : 3); 
read(DataFile,Right); writeCRight : 3); 
writeln 
end 
end; C(* AddNode #*) 


begin 
FindRoot := false; 
writeln(*INPUT 15:7); writeln; 
AddNode; 
repeat 


readin(DataFile); 
read(DataFile,NodeCharacter,Nodelndex); 
if NodeIndex = 41 then FindRoot := true 
else AddNode 
until FindRoot or eof€DataFile); 
writeln 
end; (* BuildTree *) 


The first procedure, which multiplies two matrices, has three parameters, all of type 
Matrices. The type Matrices, an array of integers, must be defined in the enclosing 
block. (Section 9.6 gives the complete program.) The second procedure, BuildTree, 
builds a binary tree. This procedure contains an embedded procedure, AddNode. 
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Neither procedure has any parameters. (Section 9.2 gives the complete program, which 
was first introduced in Chapter 2.) 


6.3 Function Declarations 


A function declaration designates a part of a program that computes a value. You 
activate a function by referencing it by name in function designators in expressions 
in your program, as described in 7.1.3. Its syntax is: 


FUNCTION jdentifier[( parameter-list )] : type-id ; 
block 


Or: 


FUNCTION jdentifier[(€ parameter-list )] : type-id ; 
FORWARD 


The identifier in the function heading, which must be unique, is the name used in an 
expression to invoke the function. The type-id specifies the type of the result returned 
by the function; this result type must be a scalar or pointer type. The syntax of a 
parameter-list is given in 6.4.1, and the syntax of a block is specified in 2.1. Section 
6.5 gives an explanation of the second form of the function declaration, using the 
FORWARD directive. 


The scope of the declaration of a function identifier is the block in which the function 
declaration occurs. 


Within the statement part of the block in a function declaration, there must be at 
least one assignment statement that assigns a value to the function identifier. The 
result of the function is the last value so assigned. If no assignment occurs, the value 
of the function is undefined. The function identifier serves within the function block 
as a Structured variable identifier, which may be used in denotations for the compo- 
nents of the result. 


Inside the function’s block you may reference the result variable only on the lefthand 
side of an assignment statement. All other occurrences of the function identifier within 
its function block cause the function to be executed recursively. 


The following are examples of function declarations: 


PUNCTION SqrtCx:; REAL: REAL; 
CONST eps = 0.0001; 

VAR x0, x4: REAL; 

BEGIN (* Newton’s Method *) 


xis x3 
REPEAT 

x0 := x13 

x1 os (Cx0+x/x0)*0.5; 

UNTIL abs€x1-x0) « eps*xi; 
Sqrt := x03 


END 
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FUNCTION RtoI(€Cx: LONGREAL; i: INTEGER) : LONGREAL; (* I >#=0 *) 
VAR z: LONGREAL; 
BEGIN 
Ee ts 
WHILE i >» 0 DO BEGIN 
IF ODDCid TREN 2 t= wtxs 
i «= | DIV 2: 
x : = SQRC(x); 
END; 
Rtol #< we CF Zz = x£FFY F3 
END 


The first function computes the square root of a real number using Newton’s Method. 
The single parameter and the returned value are of type REAL. The second function 
computes xi, 


6.4 Parameters 


The parameters given in the parameter list in a procedure or function heading are 
objects providing communication between the procedure or function and its environ- 
ment. There are four kinds of parameters: value parameters, variable parameters, 
procedural parameters, and functional parameters. Value parameters are evaluated 
once, at invocation time, and the procedure or function can use the value but cannot 
change the argument. The arguments for value parameters may be expressions. 
Arguments for variable parameters must be variables, and the procedure or function 
may change their values. For procedural and functional parameters, the argument is 
a procedure or function identifier. 


6.4.1 Parameter List Syntax 

The syntax of a parameter-list is: 

parameters [; parameters]... 

where parameters has one of the following forms: 
identifier [, identifier}... +: type-id 

VAR identifier [, identifier}... : type-id 


PROCEDURE identifie 


[© parameter-list )] 


FUNCTION identifie 


[€ parameter-list )] : type-id 


Each identifier in the syntax of parameters must be unique. In the first two forms of 
parameters, type-id may denote any type. In the last form, type-id must denote a 
simple type. 


In a parameter list, a parameters group written without an initial special symbol (the 
first form shown) specifies that the constituent identifiers denote value parameters. 
Variable, procedural, and functional parameters are specified by a prefix of VAR, 
PROCEDURE, or FUNCTION, respectively. 
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When an identifier appears in a parameters specification for a value or variable 
parameter, it is defined as a parameter identifier within the parameter-list immedi- 
ately containing it, and also as a variable identifier for the corresponding procedure 
or function block, if any. 


When an identifier appears in a parameters specification for a procedural parameter, 
it is defined as a parameter identifier within the parameter-list immediately contain- 
ing it, and also as a procedure identifier for the corresponding procedure or function 
block, if any. 


When an identifier appears in a parameters specification for a functional parameter, 
it is defined as a parameter identifier within the parameter-list immediately contain- 
ing it, and also as a function identifier for the corresponding procedure or function 
block, if any. 


NOTE 


If the parameter-list is within a procedural or functional parameter specifi- 
cation, there is no corresponding procedure or function block. 


The following are examples of parameter lists: 
VAR f: TEXT 
zx: REAL: i: INTEGER 


FUNCTION f(x: REAL): REAL; 
a,b: REAL; 
VAR z: REAL 


6.4.2 Value Parameters 


The argument corresponding to a value parameter is evaluated once, at the time the 
procedure or function is invoked; the procedure or function can use the value but 
cannot change the argument. The argument may be any expression of the proper 


type. 


The parameter represents a local variable within the procedure or function. At 
invocation, when the argument is evaluated, this value is assigned to the local variable 
before the procedure or function is executed. Thus a value parameter serves as an 
input to the procedure or function, but not as an output. 


The argument must be assignment-compatible with the type of the parameter, as 
described in 5.3.4; thus you may not use file-type value parameters. Argan 


6.4.3 Variable Parameters 


The argument corresponding to a variable parameter may be changed within the 
procedure or function. The argument to a variable parameter must be a variable 
(which may be a component of a structured variable), and the parameter represents 
this variable during the execution of the block. Any operation involving the parame- 
ter is performed directly on the argument variable. Thus a variable parameter serves 
as both an input to, and an output from, the procedure or function. 
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The argument and the parameter must be of the same type as defined in 5.3.4. If the 
selection of the argument variable involves indexing an array or referencing a dynamic 
variable (dereferencing a pointer), these actions are performed before the activation 
of the block. 


The argument to a variable parameter may not be a component of a packed structure 
or array. 
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6.4.5 Procedural Parameters 


A procedural parameter allows you to write a procedure or function that itself invokes 
a variety of different procedures. 


The argument corresponding to a procedural parameter is a procedure identifier, and 
the parameter denotes the argument procedure during the entire activation of the 
block. If the argument procedure, upon its activation through the parameter identi- 
fier, accesses any non-local object, the object accessed is the one that was accessible 
to the procedure when its procedure identifier was passed as a procedure argument. 


The predefined procedures described in Chapter 8 cannot be used as procedural 
parameters. Interrupt procedures, discussed in 10.4.9, also cannot be used as proce- 
dural parameters. 


The argument and parameter procedures must have compatible parameter lists, as 
defined in 6.4.7. 


Procedural parameters are analogous to functional parameters, which are described 
in the next section. An example of a routine using a functional parameter appears at 
the end of that section. 


6.4.6 Functional Parameters 


A functional parameter allows you to write a procedure or function that itself invokes 
a variety of different functions. 


The argument corresponding to a functional parameter is a function identifier, and 
the parameter denotes that argument function during the entire activation of the 
block. If the argument function, upon its activation through the parameter identifier, 
accesses any non-local object, the object accessed is the one that was accessible to the 
function when its function identifier was passed as a function argument. 


The predefined functions described in Chapter 8 cannot be used as functional 
parameters. 


The argument function and the parameter function must have compatible parameter 
lists (6.4.7) and the same result type. 


For example, the following procedure computes the integral of a given function 
between limits A and B, using the trapezoidal rule with eight intervals: 


PROCEDURE integrate (FUNCTION fCX:REAL): REAL; 
a,b,: REALS 
VAR integral: REAL); 


CONST n = 8; 

VAR w, sum: REAL; 
ia INTEGER: 

BEGIN 
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w i: (b-ad/n; 
sum :=* (Cf€ad+fCb))/2; 
FOR i:2=1 TO n-1 DO 
sum := sum + fCatrit*w); 
integral := sum*w 
END 


To invoke this procedure to integrate sin(x) (given a user-written sine function called 
“‘sine’’) between the limits -pi/2 and pi/2, you would use the procedure statement: 


integrate(sine,-pi/2,pi/2,int) 


In the resulting invocation of integrate, wherever f occurs sine will be substituted for 
f, and the sine function will be called. 


6.4.7 Parameter List Compatibility 


Two parameter lists are compatible if they contain the same number of parameters 
and if the parameters in corresponding positions match. Two parameters match if 
one of the following is true: 


¢ They are both value parameters of the same type. 
e They are both variable parameters of the same type. 


¢ They are both procedural parameters with compatible parameter lists. 
¢ They are both functional parameters with compatible parameter lists and the 
same result type. 


6.5 The FORWARD Directive 


In standard Pascal, you must declare each procedure or function before you reference 
it in other parts of your program. When two or more procedures or functions are 
mutually recursive (e.g., A calls B and B calls A), declaration before reference is 
impossible to do with a single declaration for each procedure or function; so standard 
Pascal provides the forward declaration, which uses the FORWARD directive. 


In the syntax for procedure and function declarations, you may use the directive 
FORWARD in place of the procedure or function block. FORWARD indicates that 
the block associated with the preceding heading appears later in the program text. 
Subsequently, when you introduce the associated block, you must precede it with a 
procedure or function heading having the same name as the forwarding declaration; 
but here, you may omit the parameter list and the return type (for a function). (In 
standard Pascal, you must omit them.) The forward declaration and the body decla- 
ration (the declaration containing the block) are local to the same containing block 
or module (their scope is that containing block or module), and together they consti- 
tute the declaration of the procedure or function identifier. 


A procedure or function identifier is considered to be declared as soon as it is given 
in a precedure or function heading. Hence, a directly recursive procedure or function— 
one that calls itself within its statement part—does not need a forward declaration. 


The following sample program fragment shows a forward declaration and its corre- 
sponding body declaration later in the program. Note that in this particular example 
the procedure shows only simple recursion, so the forward declaration is not really 
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needed, but this simple example (examples of indirect recursion are more complex) 
illustrates the syntax. 


FUNCTION GCDC€(m,n: INTEGER): INTEGER; 
FORWARD; 


FUNCTION maxCA: arrayofreals): REAL; 
(* arrayofreals is defined in the enclosing block *) 
VAR m: REAL; i: INTEGER; 
BEGIN 
x be ATT]; 
FOR i:2#2 TO n DO IF xcAfi] THEN x: =A[i]; 
max i= X$ 
END; 


FUNCTION GCD; C€* no parameter list needed here *) 
BEGIN 
IF n=0 THEN GCD:=m 
ELSE GCD:=GCDCn,m MOD n) 
END; 


To make your programs easier to follow, especially when doing top-down program- 
ming, you may find it useful to give FORWARD declarations for all your procedures 
and functions. Once you have done this, you can place the body declarations after 
the forward declarations in any order you wish. 


FORWARD is not a reserved word, so you may use it as an identifier in your program. 
Unlike predefined identifiers, however, FORWARD does not lose its original meaning 
as a directive when you define or declare it as an identifier. In such a case, each time 
FORWARD appears, the context determines which of the two meanings (directive 
or identifier) applies. 


NOTE 


The Pascal-86 compiler does not check for non-standard forward references, 
so the FORWARD directive is not required in Pascal-86 programs. However, 
you should use it if you wish your programs to be portable. 
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CHAPTER 7 


EXPRESSIONS AND STATEMENTS 


Statements in Pascal describe the actions to be performed on the data in your 
programs. Statements may include expressions, which denote rules for generating 
new values by applying operators to operands. The expressions are evaluated during 
program execution as required by the statements that contain them. 


7.1 Expressions 


Expressions are combinations of operands—variables and constants of scalar or set 
types—and operators that use the operands to compute new values. An expression 
may include one or more matched pairs of parentheses which serve to group operands 
and operators as desired. You use function designators (references to functions) in 
the same way as operands; thus you may use functions, as well as operators, to operate 
on values. An error is caused if any variable or function you use as an operand in an 
expression has an undefined value at the time the expression is evaluated. You will 
probably use expressions most often in assignment statements (7.2.1), which assign a 
newly computed value to a variable or a component of a variable. 


Pascal provides four kinds of operators: 


¢ The arithmetic operators: addition, subtraction, negation, multiplication, division, 
and remainder. Results are of type INTEGER, WORD?P EO NT; or 


¢ The Boolean operators: negation (NOT), disjunction (OR), and conjunction 


(AND). Results are of type BOOLEAN. 


e The set operators: union, intersection, and set difference. Result types are sets 
based on ordinal types. 


¢ The relational operators: equality, inequality, ordering, set membership, and set 
inclusion. Results are of type BOOLEAN. 


No operators producing new arrays, records, or files are defined. You assign new 
values to these by changing their scalar components individually. In addition, you 
may transfer the values of entire structures among variables associated with the same 
explicit type definition. 


The relative precedence of operators determines which ones are applied first when an 
expression is evaluated during program execution. Operators are of four levels of 
precedence. From highest to lowest, they are 


1. The negation operator (NOT) 


2. The multiplying operators: multiplication or set intersection (*), division (/), 
division with truncation (DIV), remainder (MOD), and conjunction (AND) 


3. The adding operators: addition, unary identity, or set union (+); subtraction, 
unary negation, or set difference (— ); and disjunction (OR) 


4. The relational operators: equality (=), inequality (< >), less than (<), greater 
than (>), less than or equal to or set inclusion (<), greater than or equal to or 
set inclusion (=>), and set membership (IN) 


When an expression is evaluated upon execution of the statement that contains it, 
operators of highest precedence are applied first. 
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The order in which the operands of a binary operator are evaluated (if they are 
subexpressions or function designators, or involve indexing an array or dereferencing 
a pointer) is undefined, so you should make no assumptions about this order. If the 
order of evaluation of subexpressions is important, put them in separate statements. 


7.1.1 Expression Syntax 


An expression may be composed of subexpressions called simple expressions, terms, 
and factors. Syntactically, factors are combined via multiplying operators to form 
terms; terms are combined via adding operators to form simple expressions; simple 
expressions are combined via relational operators to form expressions. 


By definition, simple expressions, terms, and factors are always expressions, too. Thus 
a variable identifier is an expression; so is a constant. 


The syntax of an expression is: 
simple-expression [relational-op simple-expression] 


where 
relational-op is a relational operator. 
simple-expression is a simple expression with the syntax: 


[sign] term [adding-op term]... 


Here, sign is a plus or minus sign used as a unary operator, adding-op is an adding 
operator, and term is given by: 


factor [multiplying-op factor]... 


where 
multiplying-op is a multiplying operator as defined in 7.1. 
factor is any one of the following: 


an entire variable, structured variable component, or refer- 
enced variable (5.4.2) 

a named constant (5.2) 

a literal integer (3.3.2) 

a literal real number (3.3.3) 

a literal string (3.3.5) 

a function designator (7.1.3) 


NIL (5.3.3) 

( expression) 

NOT factor 

[element [, element]... ] where element is given by 
expression|. . expression] 


The last item in the list of forms for factor represents a set, and each element stands 
for one or more set members. If two expressions joined by ellipses are given, the 
element represents all the elements within the given subrange of the base type of the 
set. 
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The following are some examples of factors, terms, simple expressions, and expressions. 


Factors: 


x 
15 

C(x+y+z) 
abs(x+y) 
[red,c,green] 
[1,5,10..19, 23] 


NOT p 
Terms: 
x*y 
i/€1i-i) 
p AND q 


C(x «= yd) AND Cy >» 2) 


Simple expressions: 


x+y 
-X 

hueit + huee2 
ee fae 


Expressions: 


q 
j>) = (j > bk) 

hue 1 

Note that all the examples of factors, terms, and simple expressions are also 
expressions. 


7.1.2 Operands 


As defined in the syntax for an expression, an operand may be an entire variable, 
structured variable component, referenced variable, constant, literal value (integer, 
real number, or string), the pointer value NIL, or a sequence of set elements enclosed 
in brackets. It may also be a function designator, which itself directs an operation to 
be performed. 


Note that some operations are defined only for certain operand types or forms. Also 
note that certain type conversions occur automatically when expressions are evalu- 
ated at run time. 


Automatic Conversions from Subrange Type to Host Type 


Any operand whose type is S, where S is a subrange of T, is treated as if it were of 
type T. Similarly, any operand whose type is SET OF S is treated as if it were of 
type SET OF T. Consequently, expressions of subrange types and set expressions 
based on a subrange type can never occur. Even an expression consisting of a single 
operand of type S is itself of type T, and an expression consisting of a single operand 
of type SET OF S is itself of type SET OF T. 
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Set Expressions 


An expression (factor) consisting of a list of elements enclosed between square brack- 
ets represents a set, and is called a set constructor. The expressions that form the 
elements of a set constructor must be compatible with the base type of the set. 


A left bracket immediately followed by a right bracket [ ] denotes the empty set, 
which contains no elements and belongs to every set type. The set [x..y] denotes the 
set of all values of the base type in the closed interval from x to y. If x is greater than 
y, then [x..y] denotes the empty set. An error occurs if the value of an expression 
that is a member of a set is outside the limits set by the compiler. In Pascal-86, the 
ordinal values of set members must be one of the integer types in the range — 32767 
through + 32767. 


For example, given the following- type definitions: 


TYPE color = Cred, yellow, blue, green, 
orange, violet); 


then the following are all permissible set expressions of type SET of color: 


[red..blue] [red, blue] [blue] 
[yeliow, blue, red] [blue, red] [] 
[red..blue, orange] 


Since a set is a collection of values in which order does not matter, the first two set 
expressions in the first column are equivalent; likewise, the two set expressions in the 
second column are equivalent. 


7.1.3 Function Designators 


A function designator specifies the activation of the function denoted by the function 
identifier. You use a function designator in an expression as if it were an operand. 
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When the expression is evaluated, the function is activated and the result is computed 
and substituted in the expression. 


A function designator may contain a list of arguments to be substituted in place of 
their corresponding parameters in the function declaration. The correspondence is 
established by the order of the items in the lists of arguments and parameters, respec- 
tively; the first argument matches the first parameter, and so on. The number of 
arguments must equal the number of parameters. 


The order in which the arguments are evaluated and associated with their parameters 
may vary, so you should make no assumptions about this order. 


The syntax of a function designator is: 
functin-id [€ argument [, argument]... )] 


where function-id is a function identifier, and each argument is either an expression 
or a procedure or function identifier. 


Examples: 

Sum(a, 100) 

GCOUC TAT; €2 

ABS(x-y) 

EDRF E? 

ORDCblue) 

7.1.4 Arithmetic Operators 


Table 7-1 summarizes the binary and unary arithmetic operators. 


The symbols +, —, and * also denote operations on sets, which are defined in 7.1.6. 


Subexpressions of INTEGER, WOR types can be operands of the 
same expression. The minimum result type for each operation is determined accord- 
ing to table 7-2. 


Arithmetic operations are performed on two integer values according to the following 
rules: 


e If both operands are of the same predefined type, the result is of that type. 
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Table 7-1. Arithmetic Operators 


Level of 


addition integer or real see OT = 


subtraction integer or real 
multiplication integer or real 
division integer or real 


division with integer integer 
truncation 


remainder integer integer 


; : 7 Level of 


. identity integer or real aelone or 
negation integer or real eget oF or 


red types INTEGER, | 


Table 7-2. Result Types of Mixed-Mode Arithmetic 


INTEGER 


INTEGER INTEGER 


NOTE: Constants in the range 0 to 32767, and ordinal variable ith subrange types 
in the range 0 to 32767 are typed as either INTEGER (matching the 
type of the other operand). If both operands lie in this range, they are typed as INTEGER. 


If your Pascal-86 program attempts an operation that would yield a value outside the 
range of the indicated result type, a run-time exception condition is caused. Section 
14.2 discusses run-time arithmetic exceptions. 


For nonzero values of j, i DIV j is equivalent to TRUNC(i/j) as defined in 8.4.1; for 
j=0, 1 DIV j causes an error. The operation i MOD }j is illegal if j is zero or negative; 
otherwise the result is (i-(K*j)) for all K such that 0<i MOD j <j. Note that the 
comparison i MOD j = i-(i DIV j)*j holds only if i => 0. 
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Arithmetic on real types in Pascal-86 follows additional special rules, as described 
in 7.1.8. 
7.1.5 Boolean Operators 


Table 7-3 summarizes the Boolean operators in Pascal. These operate on BOOLEAN 
values and return BOOLEAN results. 


The result of a Jogical OR is TRUE if one or both operands are TRUE, and FALSE 
otherwise. The result of a logical AND is TRUE if both operands are TRUE, and 
FALSE otherwise. The result of /ogical negation (NOT) is TRUE if the operand is 
FALSE, and FALSE if the operand is TRUE. 


The values of some Boolean expressions (e.g., SWITCH! OR ODD(N) when 
SWITCH1 = TRUE) can be determined by partial evaluation. The language does not 
define whether such expressions will be evaluated partially or completely. 


7.1.6 Set Operators 


Table 7-4 summarizes the set operators in Pascal. These operate on sets and return 
set results. 


The union, or sum, of two sets A and B is the set of all items that are members of A, 
members of B, or both. The intersection, or product, of two sets A and B is the set of 
all items that are both members of A and members of B. The difference between set 


Table 7-3. Boolean Operators 


: Level of 


OR logical OR BOOLEAN BOOLEAN 3 
AND logical AND BOOLEAN BOOLEAN 2 


: Level of 
aE logical negation BOOLEAN BOOLEAN i 


Table 7-4. Set Operators 


Level of 


set union any set type T 
set difference any set type T 
set intersection any set type T 
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B and set A, also called the relative complement of A with respect to B and written 
B-A, is the set containing all items that are members of B but not members of A. 


For example, if sets A and B have the following members: 


A := [red, orange, yellow, green, blue, violet] 
B [red, blue, yellow, brown, black] 


then the following relational expressions hold: 


A+B = B+A 
A*B = BfA 
A+B = [red, orange, yellow, green, blue, violet, 


brown, black] 
A*B = [red, yellow, blue] 
A-B = [orange, green, violet] 
B-A = [brown, black] 


7.1.7 Relational Operators 


Table 7-5 summarizes the relational operators in Pascal. These test relations between 
two operands and return BOOLEAN results. 


The operands represented by the symbols =, <>, <, >, S, and = are either of 
compatible types, or else one operand is of a real type and the other is of an integer 


type. 


Table 7-5. Relational Operators 


: Level of 


equality / any set, simple, BOOLEAN 
equivalence string, or pointer 
type 

any set, simple, 
string, or pointer 
type 

any simple or 
string type 


inequality / BOOLEAN 


inequivalence 


less than BOOLEAN 


greater than any simple or BOOLEAN 


string type 
any set, simple or 
string type 


less than or BOOLEAN 
equal to / logical 
implication / set 
inclusion 
(contained in) 


greater than or BOOLEAN 
equal to / logical 
implication / set 
inclusion 
(contains) 


any set, simple or 
string type 


set membership right operand: BOOLEAN 
STE OF T; left 
operand: any type 


compatible with T 
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Except when applied to sets, the operators < and = mean less than or equal to and 
greater than or equal to, respectively. If P and Q are BOOLEAN operands, then 
P<Q means P implies Q, and P=>Q means Q implies P (since FALSE < TRUE). 


For instance, if A, B, and C are integers and P and Q are BOOLEAN variables such 
that A=1, B=3, C=9, P=FALSE, and Q=TRUE, then the following relational 
expressions hold: 


(A+B)<C = TRUE 
CP<#Q) = TRUE 
(P=#=Q@) = FALSE 
C(C<Ad=Q) = FALSE 


When you use the relational operators =, <>, <, >, <, and = to compare operands 
of string type (i.e., PACKED ARRAY [1..n] OF CHAR), the results are determined 
by the lexicographical ordering of the character set; in Pascal-86, this character set 
is the ASCII collating sequence as given in Appendix G. Thus, if R, S, and T are 
strings of type PACKED ARRAY [1..10] OF CHAR and: 


R := ‘and , 
S := ‘band . 
T : = ‘an . 
then: 


CCTCR)I and (R¢S)) = TRUE 
S<>T = TRUE 
S>T = TRUE 
S>=T = TRUE 
R<T = FALSE 


If A and B are set operands, A=B means A is equivalent to B (i.e., has exactly the 
same members), and A<>B means A is not equivalent to B. AXB means A is 
included in B, and A=B means B is included in A. 


The IN operator returns TRUE if the value of the operand is a member of the set; 
otherwise, it returns FALSE. If the right operand is a set of an integer type, the left 
operand may be an INTEGER, WORD) Gr LONGINT type whose value lies in the 
range — 32767 through +32767. If the left operand is outside this range, an excep- 
tion occurs. 


For example, assume that A, B, and C are sets such that: 


A :* [red, orange, yellow, green, blue, violet] 
B :* [red, blue, yellow, brown, black] 
C :* forange, green, violet] 


then the following relational expressions hold: 


(A=B) = FALSE 

CA<>B) = TRUE 

(Cc=#=A) = TRUE 

CA>d=C) TRUE 

(violet IN A) = TRUE 
Cblack IN AJ = FALSE 
(black IN CA+B)) = TRUE 
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7.1.8 Real Arithmetic 


Real arithmetic in Pascal-86 conforms to the IEEE proposed standard for floating- 
point arithmetic. All run-time real arithmetic is performed on an 8087 Numeric Data 
Processor or by the 8087 software emulator provided as part of the Pascal-86 run- 
time system. Whether the 8087 processor or the 8087 emulator performs the compu- 
tations is determined at link time, and depends upon which run-time libraries you 
link in (see Chapter 12). The results are independent of which one you select. Unless 
you wish to do specialized error handling, you need not be concerned with the 8087 
processor or the 8087 emulator when writing Pascal programs. 


This section presents the information you normally need to write Pascal-86 programs 
using real arithmetic. For further information you may need to determine the cause 
of real arithmetic errors, see 14.6 and 14.7. Complete information on the function- 
ality and use of the 8087 processor and emulator is provided in the iAPX 86,88 User's 
Manual. 


The discussion of real arithmetic is in this section and in 14.6 and 14.7 applies to the 
operations of real addition, subtraction, multiplication, and division, the predefined 
arithmetic and transfer functions (8.3, 8.4), and assignmments, input, and output 
involving real types. 


Representation of Real Numbers 


A real value v is represented in a binary floating-point format consisting of a sign bit 
s, a biased exponent e, and a significand S such that v=(—1)*-S-2¢ (see figure 7-1). 
The significand is always a non-negative value less than two. In Pascal-86, three 


TYPE TEMPREAL 


EXPONENT SIGNIFICAND 


1 15 BITS 64 BITS 


TYPE LONGREAL 


BiT EXPONENT SIGNIFICAND 


11 BITS 52 BITS’ 


TYPE REAL 


SIGN 
BIT EXPONENT SIGNIFICAND 


1 8 BITS 23 BITS* 


*Sg. the leading significand bit, is implicit for type REAL. Its value is always 1 unless the exponent is all 
zeros, in which case Sq is also 0. 


Figure 7-1. Pascal-86 Real Data Types 121539-34 
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7.2 Statements 


Statements denote algorithmic actions, and are said to be executable. A statement 
may be prefixed by a label (followed by a colon), which can be referenced by GOTO 
statements (7.2.10). The following is an example of a labeled statement: 


100: C := SQRTCSQRCA)+SQRCB)) 


Statements in Pascal can be classified as simple statements and structured state- 
ments. A simple statement contains no other statements; a structured statement 
contains embedded statements. Simple statements may be assignment statements, 
procedure statements, GOTO statements, or empty statements. Structured state- 
ments may be compound statements, IF statements, CASE statements, WHILE 
statements, REPEAT statements, FOR statements, or WITH statements. 


An empty statement consists of no symbols and performs no action; unless it is labeled, 
it does not result in any compiled code. Empty statements may be useful as place- 
holders during top-down development and debugging. 


Also, the existence of the empty statement means that if you inadvertently insert a 
semicolon between two statements where one is not needed (i.e., after the last state- 
ment in a sequence of statements), your program will still compile and run correctly. 


Statements may also be classified according to function, as listed below: 

¢ Computing new values: assignment statement 

¢ Procedure invocation: procedure statement 

¢ Statement grouping: compound statement 

¢ Conditional execution: IF and CASE statements 

¢ Repetitive execution (looping): WHILE, REPEAT, and FOR statements 

¢ Identification of record names in references to record types: WITH statement 


¢ Unconditional branching: GOTO statement 
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The following sections describe the various Pascal statements in the order just given. 


7.2.1 Assignment Statements 


The assignment statement replaces the current value of a variable by a new value 
specified as an expression. Its syntax is: 


variable := expression 


where 
variable is an entire variable, a component of a structured variable, or 
a referenced variable. 
expression must be assignment-compatible (5.3.4) with the type of the 
variable. 


Note that variable may be of any type, including an array or record. Thus you may 
use a single assignment statement to transfer all the values of an array or record 
variable to another array or record variable, provided the types of the two variables 
are assignment-compatible. 


If the selection of the variable involves the indexing of an array or the dereferencing 
of a pointer, then whether these actions precede or follow the evaluation of the 
expression is undefined. 


Examples: 

x ; = +2 

py" €14°1) AND Ci €1002 
i s* SGRCE) = €1 * {3 
h blue,SUCC(c)] 


7.2.2 Procedure Statements 


A procedure statement specifies execution of the procedure denoted by the procedure 
identifier. The procedure statement may contain a list of arguments to be substituted 
in place of the corresponding parameters in the procedure declaration. The corre- 
spondence is established by the order of the items in the lists of arguments and 
parameters, respectively; the first argument matches the first parameter, and so on. 
The number of arguments must equal the number of parameters. 


The order in which the arguments are evaluated and associated with their parameters 
is undefined, so you should make no assumptions about this order. 


The syntax of a procedure statement is: 
identifier [€ argument [, argument]... )] 


where identifier is a procedure identifier, and each argument is either an expression or 
a procedure or function identifier. 
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Examples: 


BuildTree 
Product(a,n,m) 
BiseetCfet,-1.0,31,.0,) 


7.2.3 Compound Statements 


A compound statement specifies that its component statements are to be executed in 
the sequence in which they appear. Thus a compound statement groups several state- 
ments into a single statement. The keywords BEGIN and END act as statement 
brackets. 


The syntax of a compound statement is: 
BEGIN statement [; statement]... END 


where 
each statement is any statement described in this chapter. 


You must always use a compound statement as the statement part of every block in 
your program. In other words, you must group the statements in each block into a 
single compound statement enclosed within BEGIN and END brackets. 


Examples: 
BEGIN zwr*xy xze=yy yr=z END 


BEGIN 
RESETC#): 
REWRITECg); 
WHILE NOT EOFCf) DO 
BEGIN 
G e=tty PUTKGE? GETEF) 
END 
END 


7.2.4 IF Statements 


A conditional statement (IF or CASE statement) selects for execution one of its 
component statements. The JF statement includes a Boolean expression, which it 
evaluates to determine whether to execute the first, or the optional second, compo- 
nent statement. 


The syntax of the IF statement is: 
IF expression THEN statement [ELSE _ statement] 


The expression following the IF must be of type BOOLEAN; each statement may be 
any statement. 
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NOTE 
No semicolon is permitted between the first statement and the keyword ELSE. 


If the Boolean expression has the value TRUE, the statement following the keyword 
THEN is executed. If the Boolean expression is FALSE, the action depends on the 
existence of the ELSE clause. If the ELSE clause is present, the statement following 
the keyword ELSE is executed; otherwise, an empty statement is executed (no action 
is performed). 


The construct: 
IF ef? THEN IF e2 THEN s? ELSE s2 
is equivalent to: 


IF e? THEN 
BEGIN 
EF @@ THER gf ELSE se 
END 


In other words, the ELSE belongs to the most recent IF. To associate an ELSE with 
the first IF, you can enclose the second IF in a compound statement: 


IF ef? THEN 
BEGIN 
IF e2 THEN si 
END 
ELSE &2 


Examples: 


IF a2€7.5 THEN zs=x4y ELSE 231.5 
IF pi<oNIL THEN pi:=p1t.father 


7.2.5 CASE Statements 


The CASE statement specifies the execution of one of a list of component statements, 
based on the value of an expression that serves as a selector. Each statement is prefixed 
by one or more constants, called case constants; the statement executed is the one 
whose case constant is equal to the current value of the selector. 


If none of the case constants is equal to the value of the selector, 


an error 1s caused. 
The syntax of the CASE statement is: 


CASE expression OF 
[case-const [, case-const]... : statement ; ]... 
case-const [, case-const]... : statement [; ] 


END 
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where expression must be of an ordinal type, each case-const must be distinct and 
of an ordinal type compatible with the expression, and each statement may be any 
Pascal statement. Restrictions on case constants in Pascal-86 are given in Appendix 
G 


In the following examples, i is a variable of an integer type, x is a REAL variable, 
and operator is a variable of an enumerated type that may have the value plus, minus, 


or times: 

CASE operator OF CASE i OF 
plus: yor" x+y} 13 x # © TRUNEC ads 
minus: x £° == ¥4 : 
times: % ¢3 F*y4 

END END 


7.2.6 WHILE Statements 


The repetitive statements (WHILE, REPEAT, and FOR) execute their component 
statements repeatedly. The WHILE statement executes its component statement 
repeatedly as long as a given condition remains satisfied. Each time through the loop, 
the condition is tested before the statement is executed. Thus the WHILE statement 
is most useful when the loop is not performed at all in some circumstances. 


The syntax of the WHILE statement is: 


WHILE expression DQ statement 


where 
expression must be a BOOLEAN expression. 
statement may be any statement. Since only a single statement is 


allowed, you may wish to use a compound statement here. 


The statement is repeatedly executed while, prior to each execution, the value of the 
BOOLEAN expression is TRUE. If its value is FALSE at the beginning, the state- 
ment is never executed at all. 


The statement: 

WHILE b DO s 

is equivalent to: 

IF b THEN BEGIN 
S$; 


WHILE b DO s 
END 


Pascal-86 User’s Guide Expressions and Statements 


Examples: 


WHILE switch=TRUE DO 
BEGIN 
sampleCinput); 
IF ABSCinput)d>»toler THEN fixup; 
IF operatorstop THEN switch=FALSE; 
END 


WHILE NQT eof DO 


BEGIN 

read(number); 

Sum := sumt+tnumber; 
END 


7.2.7 REPEAT Statements 

The REPEAT statement executes its component statements until the given condition 
is satisfied. Each time through the loop, the condition is tested after the statement is 
executed. This means that one iteration of the loop is always performed. 

The syntax of the REPEAT statement is: 


REPEAT statement [; statement]... UNTIL expression 


where each statement may be any statement and expression must be a BOOLEAN 
expression. 


The statement sequence between the symbols REPEAT and UNTIL is executed 
repeatedly until the Boolean expression is TRUE after some execution of the sequence. 


The statement: 
REPEAT s UNTIL b 


is equivalent to: 


BEGIN s; 
WHILE NOT b DO s; 
END 
Examples: 
REPEAT k = i MOD j; 
io: j3 
j 22k 
UNTIL j=0 


REPEAT PROCESSC ft); GETC FI UNTIL EQFCF) 


7.2.8 FOR Statements 


The FOR statement executes its component statement repeatedly while a given finite 
progression of values is assigned to a variable, which is called the control variable of 
the FOR statement. The FOR statement is useful when the number of iterations is 
known at the time of the first iteration. 
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The syntax of the FOR statement is: 


FOR variable := expression TQ expression DO statement 
or: 
FOR variable := expression DOWNTQ expression DQ statement 


where variable is a local variable of an ordinal type, and the two expressions are 
assignment-compatible with this type. The statement may be any Pascal statement; 
since only one is permitted, you may wish to use a compound statement. 


The control variable serves as a counter. The progression of values assigned to the 
control variable starts with the value of the first expression and ends with the value 
of the second expression. If the TO form of the statement is used, the values in the 
ordinal type of the control variable are stepped through in order; if the DOWNTO 
form is used, the values are stepped through in reverse order. On each iteration, the 
appropriate value is first assigned to the control variable, and then the statement is 
executed. If the starting value is greater than the ending value for the TO form, or if 
the starting value is less than the ending value for the DOWNTO form, the state- 
ment will never be executed. 


An error is caused if the control variable is altered by the repeated statement or by 
any statement activated by the repeated statement. However, the compiler does not 
check for such alterations occurring in a procedure or function invoked from within 
the FOR loop. After a FOR statement is executed, the value of the control variable 
is defined only if the FOR statement is terminated by a GOTO statement leading 
out of it, in which case the control variable has the value it had at the time of the 
GOTO. 


Apart from the restrictions just given, the FOR statement of the form: 
FOR v := ef TQ e2 DO s 


is equivalent to the statement sequence: 


BEGIN 
temp1 := e7; 
temp2 := e2; 
IF temp1 «= temp2 THEN BEGIN 
vo := tempt; 
$j 
WHILE v ¢>» temp2 BEGIN 
v 3:2 SUCC(CVv); 
S$; 
END 
END 
END 


Similarly, a FOR statement of the form: 
FOR v :* ef DOWNTO e2 DO s 


is equivalent to the statement sequence: 


BEGIN 
tempi := e7; 
temp2 := e2; 


IF tempi >»= temp2 THEN BEGIN 
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vo: tempt; 


$s; 

WHILE v «> temp2 DO BEGIN 
v i: ® PREDCv); 
S$; 
END 

END 


END 


In both cases, temp] and temp2 are auxiliary variables, of the host type of the varia- 
ble v, that do not occur elsewhere in the program. 


Examples of FOR statements: 


FOR i:= 2 T0 63 DO 
TF afi] >» max THEN max: =af[i] 


FOR i:=1 TO n DO 
FOR j:=1 TO n DO BEGIN 
x i= QO; 
FOR >=1 7T0 n DO 


FOR c:=blue DOWNTO red DO display(c) 


7.2.9 WITH Statements 


The WITH statement allows you to access the components of a record variable as if 
they were simple variables. Inside the WITH statement, including its component 
statement, all the field identifiers of the given record variables are defined as variable 
identifiers. Thus the WITH statement effectively extends the scope of the field 
identifiers of the records listed, so that they may be accessed as simply and efficiently 
as local variables. 
The syntax of the WITH statement is: 
WITH variable [, variable]... DQ statement 
where each variable must be a variable of a record type, and statement may be any 
Pascal statement. Since only one statement is permitted, you may wish to use a 
compound statement here. 
The statement: 
WITH vi, v2, v3, ..., vn DO s 
is equivalent to: 
WITH vi DO 
WITH v2 DO 
WITH v3 DO 
WITH vn DO s 


The record variables v1 through vn may be embedded inside each other (representing 
records within records) or completely separate. 
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If the selection of a variable in the list following the keyword WITH involves the 
indexing of an array or the dereferencing of a pointer, then these actions are executed 


before the component statement is executed. 


To illustrate the WITH statement, let us assume that the following type definitions 


and variable declarations are given: 


TYPE date = RECORD day: fae 314 
months 1..12; 
year: integer; 
END; 
name = RECORD lastname: 
PACKED ARRAY [1..20] OF CHAR; 
firstname: 
PACKED ARRAY [1..20] OF CHAR; 
middleinit: CHAR; 
END; 
studentrec = RECORD studentname: name; 
birthdate: date; 
END; 
VAR currentrec: studentrec; 
todaysdate: date; 


Then the WITH statement: 


WITH currentrec, studentname, 
BEGIN 

lastname := ‘Smith 
firstname := ‘Susan 
middleinit := ‘K‘%;3 
day := 28; 
month :=5;3 
year 5" 1948; 


END 


is equivalent to: 


birthdate DO 


currentrec.studentname.lastname 


:= ‘smith a 
currentrec.studentname.firstname 
>= ‘Susan ae 
currentrec.studentname.middleinit := ‘K‘; 
currentrec.birthdate.day := 28; 
currentrec.birthdate.month := 5; 
currentrec.birthdate.year := 1948; 
Likewise,the WITH statement: 
WITH todaysdate DQ 
IF month=12 THEN BEGIN 
month :=* 13; year := year+; 
END 
ELSE month := month+tt 
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is equivalent to: 


IF todaysdate.month = 12 THEN BEGIN 


todaysdate.month := 1; 
todaysdate.year := todaysdate.year+1; 
END 

ELSE todaysdate.month := todaysdate.month+1 


7.2.10 GOTO Statements 


The GOTO statement, a simple statement, specifies that further processing is to 
continue at some other part of the program, namely, at the statement marked by the 
given label. The GOTO statement is presented last in this chapter because it is 
considered good programming practice to avoid GOTO statements whenever possible. 
Eliminating all or most GOTO statements improves the clarity and reliability of your 
programs. 


The syntax of the GOTO statement is: 
GOTO Jabel 


where 


label is a statement label. 


The /abe/ must have been declared in a label declaration (4.2) whose scope includes 
the block in which the GOTO falls, and it must appear in the label field of some 
statement within its declared scope. 


The following restrictions apply to the placement of GOTO statements: 


« A GOTO statement leading to the label that prefixes a statement S causes an 
error unless the GOTO statement is activated either by S or by a statement in 
the statement sequence (list of statements separated by semicolons) to which S 
immediately belongs. In other words, jumps into subordinate statements are not 
permitted. 


« A GOTO statement may not refer to a case constant within a CASE statement. 


¢ To avoid unreachable statements, a GOTO statement must be the last statement 
in a statement sequence (list of statements separated by semicolons), or else it 
must be followed by a labeled statement. 


« A GOTO statement leading out of a procedure causes the termination of the 
procedure containing the GOTO and all procedures activated by the procedure 
containing the label. If more than one activation of the target procedure exists, 
the activation selected is the one containing the variables that are accessible at 
the GOTO statement. This is usually the most recent activation of the procedure. 


Examples of GOTO statements: 


GOTO 3500 
GOTO 1 


CHAPTER 8 
PREDEFINED PROCEDURES 


AND FUNCTIONS 


This chapter defines the predefined, or built-in, procedures and functions in Pascal- 
86. You may invoke these from any part of a program—the procedures by means of 
procedure statements, the functions by means of function designators within 
expressions. 


You may also redefine any of these procedures or functions within your program by 
declaring your own routines with the same names. Within the scope of an explicit 
procedure or function declaration, this declaration overrides the predefined procedure 
or function. 


The following kinds of predefined procedures and functions are provided in 
Pascal-86: 


e« Functions that operate on values of ordinal type 

¢ Predicates or Boolean functions 

¢ Arithmetic functions operating on integer or real values 

e Transfer functions that perform numeric conversions on real values 
e Procedures for allocation of dynamic variables 


¢ Data transfer procedures for packing and unpacking of arrays 


¢ Procedures for handling files and text files 


For each predefined procedure and function, this chapter gives a definition of what 
it does, the syntax of the procedure statement or function designator to invoke it, 
other pertinent discussion, and examples. In the syntax, optional blanks within the 
parameter lists have been omitted for readability. 


NOTE 


The predefined procedures and functions cannot be passed as arguments to 
procedural or functional parameters. 


An expression is of an integer type if it is the same as one of the predefined types 
INTEGER, | or is a valid subrange of these types (5.3.1). An 
expression is of a real type if it is the same as one of the predefined types REAL, 


8.1 Ordinal Functions 


CHR, PRED, and SUCC— 
urn values of an ordinal type. 


The predefined ordinal functions—ORD, 
all operate on a single value of an ordinal type a 


Predefined Procedures and Functions Pascal-86 User’s Guide 


8-2 


8.1.1 ORD 


The function ORD takes an expression of an ordinal type and returns a result of type 
INTEGER. Its calling syntax is: 


ORD (Cord-expr) 


where 
ord-expr is an expression of an ordinal type. 


The result depends on the type of the argument x: 
¢ If x isan INTEGER type, ORD(x) returns the value unchanged. 


¢ If x isa CHAR-compatible type, ORD(x) returns the INTEGER value of the 
character’s ordinal position in the character set. (In Pascal-86, this is the ASCII 
character set as defined in Appendix G). 


¢ If x is any other ordinal type, ORD(x) returns the ordinal number determined 
by mapping host-type values onto consecutive non-negative INTEGER values, 
starting at zero. (Thus, ORD(FALSE) yields 0, and ORD(TRUE) yields 1.) 


For example, given the type definition: 

TYPE primarycolor = Cred, yellow, blue); 
then: 

ORD(S) = 5 

ORDC(’A’) 


ORDCred) 
ORDC( blue) = 2 


SS C* 41H *2 
0 
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8.1.4 CHR 


The function CHR takes an expression of an integer type and returns the 
corresponding CHAR value according to the character collating sequence defined in 
Appendix G. If a corresponding character value does not exist, an error occurs. 

Its calling syntax is: 


CHR (Cint-expr) 


where 
int-expr is an expression of an integer type. 


For any CHAR value, CHR(ORD(x)), where x is of type CHAR, always yields x. 
For example, in Pascal-86: 
CHRC2SH) a 


CHR(C 38H) = ‘8% 
CHESSS) = *e* €* GSH *3) 


8.1.5 PRED 


The function PRED takes an expression of an ordinal type and returns the value of 
the same type whose ordinal number is one less than that of the value of the expres- 
sion, if such a value exists. In other words, it returns the predecessor of the argument 
in the ordinal type sequence. 
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Its calling syntax is: 
PRED (Cord-expr) 


where 
ord-expr is an expression of an ordinal type. 


If no predecessor value exists, an error occurs. 

For example, given the type definition: 

TYPE primarycolor = (Cred, yellow, blue); 
then: 


PREDC( blue) = yellow 
PREDCyellow) = red 
PREDCred) causes an error 
PREDCTRUE) = FALSE 


8.1.6 SUCC 


The function SUCC takes an expression of an ordinal type and returns the value of 
the same type whose ordinal number is one greater than that of the value of the 
expression, if such a value exists. In other words, it returns the successor of the 
argument in the ordinal type sequence. 


Its calling syntax is: 
SUCC (Cord-expr) 


where 
ord-expr is an expression of an ordinal type. 


If no successor value exists, an error occurs. 

For example, given the type definition: 

TYPE primarycolor = Cred, yellow, blue); 
then: 


SUCCCred) = yellow 
SUCCCyellow) = blue 
SUCCCblue) causes an error 


SUCCCFALSE) = TRUE 
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8.2 Predicates (Boolean Functions) 
The predefined functions ODD, EOF, and EOLN all take a single argument and 
return a value of type BOOLEAN. 


8.2.1 ODD 


The function ODD takes an expression of an integer type and returns TRUE if it is 
odd, FALSE otherwise. Its calling syntax is: 


ODD Cint-expr) 


where 


int-expr is an expression of an integer type. 
For example: 
ODDC0) = FALSE 
ODD(7) = TRUE 
ODD(300) = FALSE 
8.2.2 EOF 


The function EOF takes a file argument; it returns TRUE if the associated buffer 
variable is positioned at the end of the file, FALSE otherwise. Its calling syntax is: 


EOF [Cfile-var) ] 


where 


file-var is a variable of a file type. 
If the file-var argument is omitted, the standard file INPUT is assumed. 
If the file is not open, EOF is undefined, and a call to EOF causes an error. 
EOF is useful as an exit condition in loops, for example: 
WHILE NOT EOFCf) DO BEGIN 

:= ft; PUT(Cg); GETCF) 

END 
8.2.3 EOLN 
The function EOLN takes a text file argument; it returns TRUE if the associated 
buffer variable is positioned at the end of a line in the text file, FALSE otherwise. 
Its calling syntax is: 


EQLN [ (texfile-var) | 


where 


textfile-var is a variable of a text file type. 


If the textfile-var argument is omitted, the standard file INPUT is assumed. 
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If the file is not open, EOLN is undefined, and a call to EOLN causes an error. 
Like EOF, EOLN is useful as a loop exit condition, for example: 


WHILE NOT EOLN DO BEGIN 
READC number); 
Sum : 7? sum + number; 
END 


8.3 Arithmetic Functions 


For the following arithmetic functions, the operands and the returned result are of 
an integer or real type. An error occurs if the result value lies outside the range of 
the indicated result t The arithmetic functions include ABS, SQR, SQRT, EXP, 
LN, SIN, COS, 7 S nd ARCTAN. 


8.3.1 ABS 


The function ABS computes the absolute value of an integer or real argument. The 
result type is the same as the argument type. 


Its calling syntax is: 
ABS (Carith-expr) 


where 
arith-expr is an expression of an integer or real type. 


For example: 


ABS(-S) = §& 
ABSCS. 7773 = 3.77? 
ABS(0) = 0 


8.3.2 SQR 


The function SQR computes the square of an integer or real argument. The result 
type is the same as the argument type. 


Its calling syntax is: 
SQR_  Carith-expr) 


where 


arith-expr is an expression of an integer or real type. 


For example: 


SQRC-5) * 25 
SQRC1.2) = 1.44 
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8.3.3 SQRT 


The function SQRT computes the square Toot of a non-negative integer or real 
argument. The argument is converted to TE BAL format before computation, 
and the result is always PEMPREAT: 


Its calling syntax is: 
SQRT_ (Carith-expr) 


where 


arith-expr is an expression of an integer or real type. 
An error occurs if arith-expr is negative. 


For example: 


SGRTC25) * 
SQR7TC1.44) 
SQRTC0.0) = 0.0 


ow 
_—_ Oo 


8.3.4 EXP 


The function EXP takes an integer or real argument x and computes the base of 
natural logarithms raised to the power x—that is, e*. The argument is converted to 
L format before computation, and the result is always 


Its calling syntax is: 
EXP (Carith-expr) 


where 


arith-expr is an expression of an integer or real type. 
For example: 
EXPC0) = 


1.0 
EXPC1) = 2.7183 €* approximately *) 
EXPC-1.0) = 0.367879 (* approximately *) 


8.3.5 LN 


The function LN computes the natural logarithm of a positive (greater than zero) 
integer or real argument. The argumen is converted to TLEMPREAL format before 
computation, and the result is always | ; 


Its calling syntax is: 
LN (Carith-expr) 


where 


arith-expr is an expression of an integer or real type. 


An error occurs if arith-expr is not greater than zero. 
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For example: 


LNCID = 0.0 
LNC2.7183) = 1.0 (* approximately *) 
LNC0.367879) = -1.0 (* approximately *) 


8.3.6 SIN 


The function SIN computes the sine of an potemer ot real argument x, where x is in 
radians. The argument is converted to TEMPREAL format before computation, and 
the result is always TE 


Its calling syntax is: 
SIN (Carith-expr) 


where 
arith-expr is an expression of an integer or real type. 


For example: 


SINCO) = 0.0 

SINC3.1416) = 0.0 (* approximately *) 
SINC1.5708) © 1,0 €* approximately *) 
SINC-1.0) = -0.84147 (€* approximately *) 


8.3.7 COS 


The function COS computes the cosine of an integer or real argument x, where x is 
in radians. The argum format before computation, 
and the result is always TEN 


Its calling syntax is: 
COS (Carith-expr) 


where 


arith-expr is an expression of an integer or real type. 


For example: 


cCOSc0) = 1.0 

COSC3.7496) = -1.0 €* approximately *) 
COSsc1.5708) = 0.0 (€* approximately *) 
COSC-1.0) = 0.54030 (€* approximately *) 
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8.3.11 ARCTAN 


The function ARCTAN computes the principal value, in radians, of the arctangent 
of an integer or real argument. The argument is converted to TEMPREAL format 
before computation, and the result is always 


Its calling syntax is: 
ARCTAN (Carith-expr) 


where 


arith-expr is an expression of an integer or real type. 
For example: 


ARCTANCO) = 0.0 
ARCTANC1) = 0.7854 (* approximately *) 
ARCTANC-1.5574) = -1.0 (€* approximately *) 


8.4 Transfer Functions 


The transfer functions TRUNC, ROUND, and_ 
numeric conversions. They take a single argument of a real type. 


perform 


8.4.1 TRUNC 


The function TRUNC takes a real expression and returns an INTEGER result that 
is the integer part of the real argument. The absolute value of the result is never 
greater than the absolute value of the argument. An invalid error occurs if the result 
would be outside the range of INTEGER values. 


The calling syntax is: 
TRUNC (Creal-expr) 


where 


real-expr is an expression of a real type. 
For example: 


TRUNCC(3.7) = 3 
TRUNCC-3.7) * -3 
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8.4.3 ROUND 


The function ROUND takes a real expression and returns an INTEGER result that 
is the value of the real argument rounded to the nearest integer. If the argument x is 
non-negative, then ROUND(«x) is equivalent to TRUNC(x+0.5); otherwise, it is equal 
to TRUNC(x—0.5). An invalid error occurs if the result is outside the range of 
INTEGER values. . 


The calling syntax is: 
ROUND (Creal-expr) 


where 


real-expr is an expression of a real type. 
For example: 


ROUND(3.2) = 3 
ROUND(-3.7) = -4 
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8.5 Dynamic Allocation Procedures 


The predefined procedures NEW and DISPOSE allocate and deallocate dynamic 
variables. Each takes a pointer argument and may also, for variant record types, take 
one or more tag values as arguments. 


8.5.1 NEW 
The procedure NEW allocates a new dynamic variable. Its calling syntax is: 
NEW (Cpointer [, case-const]... ) 


where 


pointer is a pointer variable with base type T. 


If one or more case-const arguments are present, T must be a record type with 
variants, and the case-const values correspond to consecutive tags of the type T, listed 
in the order of the matching tags in the type definition. 


NEW allocates a new variable v of type T and assigns the pointer to v to pointer. 


If case-const arguments are present, the allocated variable must be of a record type 
with variants. The allocated variable will have nested variants that correspond to the 
specified case-consts, in order of increased nesting of the variant parts. Any variant 
not specified must be at a deeper level of nesting than that of the last case-const. An 
error occurs if your program changes any variant part of the allocated variable to 
another variant. The Pascal-86 compiler does not detect this error. 


In standard Pascal, an error is caused if an entire referenced variable created by a 
call to NEW with tag arguments is used as an operand in an expression, or as the 
variable on the left side of an assignment statement, or as an argument. (Such a 
variable does not possess the full properties—i.e., all fields—of variables of its declared 
record type.) However, you may reference individual components of such variables. 
Pascal-86 does not check for this error. 


Sample program 8 in Chapter 9 illustrates the use of NEW. 


8.5.2 DISPOSE 


The procedure DISPOSE releases the storage allocated to a dynamic variable. Its 
calling syntax is: 


DISPOSE (pointer [, case-const]... ) 


where pointer is a pointer variable with base type T, and the case-const values are 
tags of T as for NEW. 


DISPOSE indicates that storage occupied by the variable pointert is no longer 
needed. All pointer values that referenced this variable become undefined. 
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If you used case-const arguments in the call to NEW that allocated the variable, you 
must use at least as many case-const arguments in the call to DISPOSE. 


An error is caused if the value of the pointer parameter is NIL or undefined, or if 
the pointer parameter refers to a variable that is currently a variable parameter or 


an element of the record variable list of an active WITH statement. Pascal-86 does 
not check for this error. 


8.6 Transfer Procedures 


The transfer procedures PACK and UNPACK provide efficient packing and unpack- 
ing of array data. 


8.6.1 PACK 


The procedure PACK assigns, to all elements of a packed array, corresponding 
elements of an unpacked array. Its calling syntax ts: 


PACK (Cunpacked-array , ord-expr , packed-array) 


where 
unpacked-array is the unpacked array variable. 
packed-array is the packed array variable. 


ord-expr is an expression compatible with the index type of the 
unpacked array. 


The two array variables must have assignment-compatible component types. Further- 
more, the number of components in packed-array must be less than or equal to the 
number of components in unpacked-array. 


Let the variables a and z be declared by: 


a: ARRAY [m..n] OF T 
z: PACKED ARRAY [u..v] OF T 


where the following relations hold: 


ORDCnd-ORDCm) o9= ORDCvdI-ORDCud 
ORDCm) c= ORDCIi? c= CORDCn)-ORDCvI+ORDCu))d 


Then the statement: 
PACK(Ca,i,2z) 
means: 
k 3:2 i3 
FOR j:su TO v DO BEGIN 
2{j] :* afk]; 
k :2* SUCCCk); 
END 


where j and k denote auxiliary variables of appropriate type not occurring elsewhere 
in the program. 
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Note that PACK is defined for one-dimensional arrays only. To pack multidimen- 
sional arrays (arrays within arrays), you must use a loop. 
8.6.2 UNPACK 


The procedure UNPACK assigns, to all elements of an unpacked array, correspond- 
ing elements of a packed array. Its calling syntax is: 


UNPACK (packed-array , unpacked-array , ord-expr) 


where 
packed-array is the packed array variable. 
unpacked-array is the unpacked array variable. 
ord-expr is an expression compatible with the index type of the packed 
array. 


The two array variables must have assignment-compatible component types. Further- 
more, the number of components in packed-array must be less than or equal to the 
number of components in unpacked-array. 

Let the variables a and z be declared by: 


a: ARRAY [m..n] OF T 
z: PACKED ARRAY [u..v] OF T 


where the following relations hold: 


ORDCndI-ORDCm) >= ORDCv)I-ORDCu) 
ORDCm) c= ORDCi) «= CORDCn)I-ORDCvI+ORDCud)) 


Then the statement: 
UNPACK(z,a,i) 
means: 

k. f= b5 


FOR j:=u TO v DO BEGIN 


afk] := 2{j]; 
ko: SUCCCk); 
END 


where j and k denote auxiliary variables of appropriate type not occurring elsewhere 
in the program. 


Note that UNPACK is defined for one-dimensional arrays only. To unpack multidi- 
mensional arrays (arrays within arrays), you must use a loop. 


8.7 File and Text File Input and Output Procedures 


You can perform the following input and output operations on files, which are varia- 
bles of file types as defined in 5.3.2. 


¢ Open a file for input (RESET) or output (REWRITE) 
e Read (GET) or write (PUT) one file component 
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¢ Read (READ) or write (WRITE) a sequence of file components, with automatic 
conversion of numbers from or to type CHAR if the file is a text file 


¢ For text files, read a sequence of characters from a line and skip to the next line 
(READLN) 


¢ For text files, write a line (WRITELN) 


¢ For text files, write a form feed character to start a new page of printed output 
(PAGE) 


e Check for the end of the file (EOF) 
e For text files, check for the end of the current line (EOLN) 


This section defines the procedures RESET, REWRITE, GET, PUT, READ, 
WRITE, READLN, WRITELN, and PAGE. Sections 8.2.2 and 8.2.3 define the 
Boolean functions EOF and EOLN. 


In standard Pascal there is no procedure for closing a file. Files are closed automati- 
cally when execution returns from the program block. In Pascal-86, files may be 
closed with a procedure from the Run-Time Library. See Appendix B. 


The predefined procedures RESET and REWRITE correspond to rewinding a tape 
and preparing to read from it or write to it, respectively. The procedures GET and 
PUT perform reading and writing, respectively, of a single file component, and also 
advance the position of the file. The procedures READ and WRITE transfer a 
sequence of file components. The predefined function EOF checks for the end of the 
file. 


RESET positions an input file at its beginning in preparation for reading from it, and 
also transfers information from the first component of the file into the buffer varia- 
ble; your program may then copy the value of the buffer variable into a program 
variable. GET advances the current file position to the next component, then assigns 
it. READ copies the buffer variable into a program variable you specify as a param- 
eter, then performs a GET to fetch the next file component, repeating until the list 
of variables is exhausted. 


REWRITE positions an output file at its beginning, in preparation for writing; it also 
destroys any existing information in the file. To write a new component to the file, 
you first assign the desired value to the file’s buffer variable, then call PUT. The call 
to PUT appends the value of the buffer variable to the file, then causes the buffer 
variable’s value to become undefined. WRITE copies into the buffer variable the 
value of an expression you specify as a parameter, then performs a PUT operation, 
repeating until the list of variables is exhausted. 


You must use RESET before reading from, and REWRITE before writing to, any 
file except the predefined files INPUT and OUTPUT. In addition, you may not follow 
a write operation (PUT, WRITE, or WRITELN) by a read (GET, READ, or 
READLN), or a read by a write; so if you are using the same file for both input and 
output, you must rewind it with REWRITE, write to it, rewind it with RESET, then 
read from it, and so on. 


In standard Pascal, an error is caused if you alter the position of a file while the 
buffer variable Ft is either an argument to a variable parameter or an element of 
the record variable list of an active WITH statement or both. However, the 
Pascal-86 compiler does not check for this non-standard usage. 


With non-text files declared as FILE OF CHAR, the procedures GET and READ 
read in the characters, one at a time, just as they appear in the file. With text files, 
however, GET, READ, and READLN interpret end-of-line markers as single blanks 
and ignore form feed characters. 
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The action of the standard Pascal input buffering scheme, as described in the preced- 
ing explanation of RESET, GET, and READ, is to read ahead in the file so that 
input may be overlapped with computations for efficiency. However, this scheme is 
not appropriate for interactive programs, since it may allow a program to query the 
terminal for input before the terminal has prompted the user for that input. For this 
reason, the Pascal-86 run-time system uses an alternative scheme, called lazy input, 
for files declared as type TEXT or FILE OF CHAR (but not PACKED FILE OF 
CHAR, for which the run-time system uses the standard buffering scheme). 


Under /azy input, a “buffer full” flag associated with the file controls the filling of 
the buffer variable. RESET and GET always clear the flag to indicate that new data 
is needed. Whenever the buffer variable is referenced, the flag is tested, and if it is 
cleared, the buffer variable is filled from the file (e.g., the terminal). After the buffer 
variable has been filled, the “buffer full” flag is set, so that subsequent references to 
the buffer variable (without intervening calls to GET) will not initiate another read 
from the file. Invocations of EOF and EOLN make sure the buffer is full before 
testing for end of file or end of line. 


Note that the calling sequences of READ, WRITE, READLN, and WRITELN differ 
from those of other predefined and user-defined procedures and functions in Pascal. 
Each of these procedures takes a variable number of parameters, and the types of the 
parameters are not predetermined by the procedure. 


8.7.1 RESET 


The procedure RESET opens a file for input. It positions the file at its beginning in 
preparation for reading from it, and also transfers information from the first compo- 
nent of the file into the buffer variable. Your program may then copy the value of 
the buffer variable into a program variable. You must use RESET before using GET, 
READ, or READLN to read from any file except the predefined file INPUT. 


Its calling syntax is: 


RESET (file-var , 


RESET resets the current file position at its beginning. If the specified file f is not 
empty, RESET assigns the buffer variable ft to the value of the first component of 
f, and causes EOF(f) to become FALSE. If f is empty or does not exist, f t becomes 
undefined, and EOF(f) becomes TRUE. 


a , the physical file last associated with the file variable is 
assumed. e first reference to a file variable has no physical file associated with it 
(either by preconnection or by a string-expr parameter to RESET or REWRITE), a 
default physical file is assigned to it. If the file variable is a program parameter 
specified in the program heading, the default physical file name is the same as the 
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file variable name. If the file variable is not a program parameter, the run-time system 
creates an empty temporary file, which will be deleted at the end of the program. 


Sample programs 2A, 2B, 3, and 4 in Chapter 9 give examples of the use of RESET. 


8.7.2 REWRITE 


The procedure REWRITE opens a file for output. It positions a file at its beginning 
in preparation for writing to it and also destroys any existing information in the file. 
You must use REWRITE before using PUT, WRITE, or WRITELN to write to any 
file except the predefined file OUTPUT. 


Its calling syntax is: 


REWRITE (Cfile-var, 


where file-var is the name of a file variable 


REWRITE positions the specified file f such that a new file may be generated, causes 
EOF to become TRUE, and causes the buffer variable f t to become undefined. 


the physical file last associated with the file variable is 
nce to a file variable has no physical file associated with it 
(either by preconnection or by a string-expr parameter to RESET or REWRITE), a 
default physical file is assigned to it. If the file variable is a program parameter 
specified in the program heading, the default physical file name is the same as the 
file variable name. If the file variable is not a program parameter, the run-time system 
creates a temporary file, which will be deleted at the end of the program. 


If the file already exists, REWRITE will delete it and create an empty new file. In 
essence, it will erase the contents of the file. 


Sample program 3 in Chapter 9 gives an example of the use of REWRITE. 


8.7.3 GET 

The procedure GET advances the current file position to the next component, then 
assigns the value of this component to the associated buffer variable, allowing your 
program to copy it. 

Its calling syntax is: 


GET [ (file-var) ] 


where 


file-var is the name of a file variable. 
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If a file variable is not specified, the predefined text file INPUT is used. 

If the predicate EOF(f) is FALSE prior to the execution of GET(f), then GET 
advances the current file position to the next component and assigns the value of this 
component to the buffer variable ft. If no next component exists, then EOF(f) 
becomes TRUE, and the value of f t becomes undefined. If EOF(f) is TRUE prior 
to execution, an error occurs. 

When GET is applied to a file f, an error occurs if f is undefined. An error also occurs 
if the file is set for output rather than input; that is, if REWRITE(f) has been called 
since the last call to RESET(f). 


Sample program 3 in Chapter 9 gives an example of the use of GET. 


8.7.4 PUT 


The procedure PUT appends the value of the buffer variable to the specified file, 
then causes the value of the buffer variable to become undefined. 


Its calling syntax is: 
PUT [(Cfile-var) | 


where 

file-var is the name of a file variable. 
If a file variable is not specified, the predefined text file OUTPUT is used. 
If the predicate EOF(f) is TRUE prior to the execution of PUT(f), then PUT appends 
the buffer variable ft to the file f, EOF(f) remains TRUE, and the value of ft 
becomes undefined. If EOF(f) is FALSE prior to execution, an error occurs. 
When PUT is applied to a file f, an error occurs if f is undefined. An error also occurs 
if the file is set for input rather than output; that is, if RESET(f) has been called 
since the last call to REWRITE(f). 


Sample program 3 in Chapter 9 gives an example of the use of PUT. 


8.7.5 READ 


The READ procedure copies the file buffer variable into a program variable you 
specify as an argument, then performs a GET to fetch the next file component, 
repeating until the list of variables is exhausted. The file must be a text file; READ 
automatically converts the input from type CHAR to the appropriate variable type(s). 


Its calling syntax is: 
READ ([file-var, |variable[ , variable]...) 


where 


file-var is the name of a file variable. 


If file-var is omitted, the predefined text file INPUT is assumed. Each variable 
parameter may be an entire variable, a component of a structured variable (indexed 
variable, field designator, or buffer variable) or a referenced variable. 
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When READ is applied to a file f, an error occurs if f is undefined. An error also 
occurs if the file is set for output rather than input; that is, if REWRITE(f) has been 
called since the last call to RESET(f). 


Sample programs 2A, 2B, 4, 6, 7, and 8 in Chapter 9 give examples of the use of 
READ. 


Each variable must be of a character, integer, or real type, or a valid subrange of 
these types as defined in 5.3.1. 


The statement: 

READCT , V1 —..,ny 

is equivalent to: 

BEGIN READCf,v1); .. 3; READCf,vn) END 

Character Variables. If v is a variable of type CHAR or a subrange of CHAR, then: 
READCfF,v) 

is equivalent to: 

BEGIN v:i=ft; GETCf) END 


Integer Variables. If v is a variable of type INTEGER \ 
a valid subrange of these types, then: . 


READCF,v) 


reads from file f a sequence of characters that form a decimal integer; that is, a 
sequence of decimal digits. The value of the integer, which must be assignment- 
compatible with the type of v, is assigned to v. Preceding spaces and end-of-line 
markers are skipped. Reading ceases as soon as the buffer variable f t contains a 
character that does not form part of the integer. If the first character read is not a 
legal decimal digit or a minus sign followed by a legal decimal digit, an error occurs. 


NOTE 


READ will not skip characters other than a space, carriage return, or line 
feed. In particular, the comma (,) is not skipped and will cause an error if 
used as a delimiter. 


Real Variables. If v is a variable of type REAL 
then: 


READCF,v) 


reads from file f a sequence of characters that represent a real number. 
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The value of the real number is assigned to v. Preceding spaces and end-of-line markers 
are skipped. Reading ceases as soon as the buffer variable f t contains a character 
that does not form part of the real number. If the sequence of characters read does 
not form a legal real number, an error occurs. 


NOTE 
You cannot apply READ to nontext files. You must use GET(f). 


8.7.6 WRITE 


The WRITE procedure copies into the file buffer variable the value of an expression 
you specify as an argument, then performs a PUT, repeating until the list of arguments 
is exhausted. The file must be a text file; WRITE automatically converts all arguments 
to type CHAR before writing them. 


Its calling syntax is: 
WRITE ([file-var, |write-pararm| , write-param]...) 


where 
write-param is of the form: 
expression [: total-width-expn [:  frac-digits-expn]] 


The file-var is the name of file variable. If the file-var is omitted, the predefined text 
file OUTPUT is assumed. Each expression is an expression whose value will be written 
to the file f, it may be of a character, integer, real, Boolean, or string type. The items 
total-width-expn and frac-digits-expn are expressions of an integer type; their values 
must be greater than or equal to 1, or an error occurs. 
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The statement: 

WRITECf#,p1,...,pn) 

(where pl.,...,pn are write-params) is equivalent to: 

BEGIN WRITECf,pi1); ... 3; WRITECf,pn) END 


When WRITE is applied to a file f, an error occurs if f is undefined. An error also 
occurs if the file is set for input rather than output; that is, if RESET(f) has been 
called since the last call to REWRITE(f). 


Sample programs 1, 2A, 2B, 3, 4, 6, and 7 in Chapter 9 give examples of the use of 
WRITE. 


WRITE for Text Files 


In each write-param in the calling syntax, expression is the value to be written, and 
total-width-expn and frac-digits-expn are the field width parameters. The value of total- 
width-expn is the total number of characters to be written, unless expression requires 
more than total-width-expn characters to represent it; in this case, the number of 
characters written will be the smallest number necessary to represent expression. If 
total-width-expn is omitted, a default total width value is assumed. In Pascal-86, this 
default value is 1 for character, integer, real, and Boolean expressions, and n for 
string expressions (the number of characters specified for the string type). 


The field width parameter frac-digits-expn may be used only when expression is of a 
real type. Its presence specifies output in fixed-point representation, and its absence 
specifies floating-point representation. For details, see the discussion of real output 
later in this section. 


Character Expressions. If the expression to be written is of type CHAR, the value 
written is right-adjusted in an output field of the specified width, and any remaining 
positions to the left are filled with blanks. 


Integer Expressions. If the expression to be written is of type INTEGER, WORD, 
or LONGINT, the decimal representation of its value will be written, preceded by a 
minus sign if the number is negative. The representation of zero is a single zero digit. 
If the specified total width of the output field is large enough to contain the decimal 
representation (and the minus sign if the number is negative), the value written is 
right-adjusted in an output field of the specified width, and any remaining positions 
to the left are filled with blanks. Otherwise, the value is written using an output field 
of as many characters as needed. 


Real Expressions. If the expression to be written is an expression of a real type, a 
decimal representation of the value, rounded to the specified number of significant 
digits or decimal places, is written. If frac-digits-expn is given, the number is written 
in fixed-point representation; otherwise, it is written in floating-point representation. 


In Pascal-86, floating-point arithmetic may produce negative zeros, positive and 
negative infinities, and NaN’s. WRITE Tepresents these as follows: 


‘ Negativ > zero i is shown asa Zero digit preceded bya minus sign. oe 
. Positive infinity i is shown asa string of plus signs (+) that fill the specified fi eld. 


. Negative. satiny i is shown as a string of minus signs i=) that fill the ep ties 
field. 


. ; A NaN (Not a Number) i is aoe asa string of dots (.) that fill the specified 
field. 
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Floating-Point Representation. If a real expression is to be written and frac-digits- 
expn is not given, the value of the expression is written in floating-point representation. 


This is a decimal representation in scientific notation form, with one digit to the left 
of the decimal point, truncated to fit the actual width of the output field. If the value 
of total-width-expn is greater than or equal to 10, the actual width of the output field 
is as specified by total-width-expn, otherwise, the actual width is 10. 


The floating-point representation has the following form: 
1. The sign of the real value (— or blank) 


2. The most significant digit of the scientific notation representation (0 if the value 
is zero) 


3. The decimal point (.) 
The next / significant digits of the scientific notation representation, where f = 
actual width - 9 (all zeros if the value is zero) 

5. Acapital E 
The sign of the exponent (— or +) 

7. The exponent in four digits, with leading zeros if necessary 


Note that making total-width-expn larger will only increase the number of significant 
digits written out. If you desire padding blanks, your program must write them out 
explicitly. 


Fixed-Point Representation. If a real expression is to be written and frac-digits-expn 
is given, the value of the expression is written in fixed-point representation. 


Like the floating-point representation, this is a decimal representation. The number 
of digits to the left of the decimal point (7) is the number of digits needed to represent 
the integer part of the value, and the number of digits to the right of the decimal 
point (/) is specified in frac-digits-expn. If the specified length of the significand is 
less than or equal to 18 digits, the number will be rounded to fit the output field. 
Otherwise, the number will be truncated to 18 significant digits, adding trailing zeros 
if needed. 


The minimum number of characters written (m) is thus (i+f+1) for a positive or 
zero value, or (i+f+2) for a negative value. If the value of total-width-expn is greater 
than or equal to m, the output value is right-adjusted in an output field of the speci- 
fied width, and any remaining positions to the left are filled with blanks. Otherwise, 
the value is written in an output field of width m. 


NOTE 


The fixed-point equivalent of a real expression may have over 4000 decimal 
places. For this reason, your program should check the ranges of real values 
before printing them out in fixed-point form. 


Following the leading blanks if any, the fixed-point representation has the following 
form: 


1. A minus sign (—) if the value is negative 
2. The first i digits of the value 

3. The decimal point (.) 

4. The next f digits of the value 


String Expressions. If the expression to be written is of a string type, the value of 
the string will be written as a sequence of characters. If the specified width of the 
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output field is greater than or equal to the length of the string, the string is rightad- 
justed in an output field of the specified width, and any remaining positions to the 
left are filled with blanks. Otherwise, the string is truncated on the right to the widths 
of the output field before it is written. 


NOTE 


You must use PUT(f) for writing nontext files. 


8.7.7 READLN 


The READLN procedure is applicable only to text files. It performs the same 
functions as READ, but after it has read in all the specified data, it moves the position 
of the file to just past the end of the current line. Unless this is the end-of-file position, 
READLN thus positions the file at the start of the next line, skipping over the last 
part of the line just read. You may call READLWN without specifying any variables. 
In this case, it simply moves the position of the file. 

Its calling syntax may be any one of the following: 

READLN ([textfile-var, |variable[ , variable]...) 

READLN (Ctext-file) 

READLN 


where 


textfile-var is the name of a text file variable. 


If textfile-var is not present, the predefined text file INPUT is assumed. Each variable 
parameter may be an entire variable, a component of a structured variable (indexed 
variable, field designator, or buffer variable) or a referenced variable. Furthermore, 
each variable must be of a character, integer, or real type, or a valild subrange of 
these types as defined in 5.3.1. 


The statement: 

READLNCf,vi,.., wn) 

is equivalent to: 

BEGIN READCFf,v1,...,vn); READLNC Ff) END 

where: 

READLNC Ff) 

is equivalent to: 

BEGIN WHILE NOT EOLNC Ff) DO GETCF)I; GETCF) END 


When READLN is applied to a text file f, an error occurs if fis undefined. An error 
also occurs if the file is set for output rather than input; that is, if REWRITE(f) has 
been called since the last call to RESET(f). 


Sample programs 1, 2A, 2B, 4, 6, 7, and 8 in Chapter 9 give examples of the use of 
READLN. 
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8.7.8 WRITELN 


The WRITELN procedure is applicable only to text files. It performs the same 
functions as WRITE, but after it has written all the specified data, it writes an end- 
of-line marker (in the Pascal-86 logical record system, an ASCII carriage return 
followed by a line feed), thus terminating the current line. You may call WRITELN 
without specifying any variables; in this case, it simply writes an end-of-line marker 
(producing a skipped line on printed output). 


Its calling syntax may be any one of the following: 


WRITELN ([textfile-var, |write-param| , write-param]...) 
WRITELN (textfile-var) 
WRITELN 


where 
write-param is of the form: 
expression [: total-width-expn [:  trac-digits-expn]]| 

The textfile-var is the name of a text file variable. If textfile-var is not present, the 
predefined text file OUTPUT is assumed. Each expression is an expression whose 
value is to be written to the file f; this expression may be of a character, integer, real, 
Boolean, or string type. The items total-width-expn and frac-digits-expn are expres- 
sions of type INTEGER. Their values must be greater than or equal to 1, or an error 


occurs. The total-width-expn and frac-digits-expn parts are explained further in the 
section on WRITE for text files. 


The statement: 

WRITELNCf,p1,.., pn) 

is equivalent to: 

BEGIN WRITECf,p1,..,pn)3; WRITELNCf) END 

When WRITELN is applied to a text file f, an error occurs if f is undefined. An 
error also occurs if the file is set for input rather than output; that is, if RESET(f) 


has been called since the last call to REWRITE(f). 


In standard Pascal, WRITELN is the only means for writing the line marker. In 
Pascal-86, WRITEing CR followed by LF has the same effect. 


Sample programs 1, 2A, 2B, 3, 4, 6 ,7, and 8 in Chapter 9 give examples of the use 
of WRITELN. 


8.7.9 PAGE 


The procedure PAGE is applicable only to text files. It writes a form feed character 
(in Pascal-86, ASCII OCH) to the file. This causes a page eject in the file when it is 
printed, so that subsequent output to the file will be on a new page. If the last character 
sequence written before the call to PAGE was not an end-of-line marker (CR followed 
by LF for Pascal-86), PAGE performs an implicit WRITELN to the file. 


Its calling syntax is: 


PAGE [ ( textfile-var) | 
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where 
textfile-var is a text file variable. 


If textfile-var is omitted, the predefined text file variable OUTPUT is assumed. 


When PAGE is applied to a text file f, an error occurs if fis undefined. An error also 
occurs if the file is set for input rather than output; that is, if RESET(f) has been 
called since the last call to REWRITE(f). 


For example: 


PAGECedittext) 


causes a page eject in the file edittext. 
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CHAPTER 9 


SAMPLE PROGRAMS 


This chapter includes nine sample programs illustrating important features of the 
Pascal language. Two of these have already been introduced in Chapters 1 and 2. 


Source code for all these programs is provided on the release diskette, so that you 
may run them yourself. For examples of linking, locating and executing programs, 
see Chapter 12. 


9.1 Sample Program 1: Temperature Conversion 


The program in figure 9-1, introduced in Chapter 1, converts Fahrenheit degrees to 
Celsius as you enter them from the console. 


When you run this program, it first displays the message: 
Fahrenheit temperature is: 


Type in a temperature in Fahrenheit degrees. If you mistype, you may edit the line 
using the RUBOUT key. Then type RETURN. 


The program calculates the Celsius temperature and displays the output: 
Celsius temperature is: n 


where 


n is the Celsius equivalent of the temperature you typed in. 
Finally, the program skips a space and displays: 
Another temperature input? 


Type Y or y if you want to do another calculation. This causes the program to skip a 
line and display the starting message again, allowing you to type in another temper- 
ature. You may do this as many times as you wish. 


When you wish to stop, answer the final query with any character other than Y or y, 
and the program will skip a line and return control to the operating system. This 
program must be linked to the run-time support libraries (P86RNO.LIB, 
P86RN1.LIB, P86RN2.LIB, P86RN3.LIB), the appropriate 8087 libraries (either 
8087.LIB or E8087.LIB and E8087), and any interface libraries required by your 
operating system. 


9.2 Sample Programs 2A and 2B: Binary Tree Traversal 


These programs, introduced in Chapter 2, build a binary tree and print out the nodes 
of the tree in three notations: infix, prefix, and postfix. These notations represent the 
three methods of tree traversal—inorder, preorder, and postorder, respectively—used 
in most computer programs that deal with trees. Such a tree may represent, for 
example, an arithmetic expression to be interpreted by a parsing program, with the 
nodes being symbols or tokens. Here, for simplicity, each node is a single character. 


Sample Programs 


system-id Pascal-86% Vx.y 


Source File: :F5:PROG1.SRC 
Object File: :F5:PROG1.08J 
Controls Specified: <none>. 


STMT LINE NESTING SouRCE T 


EXT: 2sFS:PROG1.SRC 
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(* This program converts Fahrenheit temperatures to Celsius. It 
prompts the user to enter a Fahrenheit temperature, either real or 


integer, 


on the console. The pregram computes 


and displays the equivalent 


Celsius temperature on the console until the user has no more inputs. *) 


Nm 
‘oO 00 
oO 
ao 


3 0 Quit 
4 11 0.68 begin 
4 13 0 1 repe 


16 33 90 2 end. (* 


Summary Information: 


PROCEDURE OFFSET 
FAHRENHEITTOCELSIUS 907TH 
~CONST IN COCE- 


Total 


33 Lines Read. 
O Errors Cetected. 


Dictionary Summary: 


230KB8 Memory Available. 
6X83 Memory Used (2%). 
QOK3 Cisk Spece Used. 
3K8B out of 16K8 Static Spac 


progrem FahrenheitToCelsiusCI Input/Output), 


var CelsiusTemp-FenrenheitTemp 


Char 3: char,s 


at 


writeln,s writeln; 


write(*Fanrenreit temperature is: 
readln(FahrenneitTemp)s 
CelsiusTemrp := ((€ FahrenheitTemp - 


write(’Celsius temperature is: 


writeln; 


write(’Ancther temperature input? 
read(QuitChar)-, writeln-, 


until not (QuitCher in C°Y’%r%y"%]) 


FahrenheitToCelsius *) 


CcCCE SIZE DATA 
C161n 3530 00919H 
CO70H# V25C 


C1DEH 4780 Q0019H 


e@ Used (18%). 


32.0 >) * € 5.0 / 9.0 1) 


writeln(CelsiusTemp:5:1)7 


STACK SIZE 


140 


660 


Figure 9-1. Sample Program 1: Temperature Conversion 
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The input is in the form of a series of lines, each representing a node by means of 
four items separated by blanks. The first item in the input line is the character at 
that node. The second is a sequence number identifying the node; the program uses 
this number as an index into an array of records representing the tree. The third and 
fourth items are the sequence numbers of the left-hand and right-hand nodes, respec- 
tively, that are connected below the given node. A zero means there is no node 
connected below the given node at that (left-hand or right-hand) position. For example: 


woroaon~o:i mx + 
moon onrA Wh — 
oOo 0 WMO COMO APD 
ooo Won Oo UlWw 


This input represents the tree in figure 9-2. 


The three methods of tree traversal are all defined recursively. The starting point 
(the first root) is at the top of the tree. For the three methods, the steps at each level 
of recursion are as follows: 


Traverse the left sub-tree. 
Visit the root. 
Traverse the right sub-tree. 


Inorder traversal: 


ae ae 


Visit the root. 
Traverse the left sub-tree. 
Traverse the right sub-tree. 


Preorder traversal: 


Naat ade aed 


Traverse the left sub-tree. 
Traverse the right sub-tree. 
Visit the root. 


Postorder traversal: 


WN re 


Figure 9-2. Sample Input Tree for Sample Programs 2A and 2B _121539-35 
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Thus, the output produced from the sample input is as follows: 


INFIX: 

(CCC A / BY - CP * DY + EY 
PREFIX: 

OE te fe Bi, DE 

POSTFIX: 


A B/cC- D* E + 
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These programs show the use of nested structures—in this case, an array of records. 
The procedures infix, prefix, and postfix are all directly recursive, reflecting the 


recursive definitions of the three methods of tree traversal. 


Sample program 2A (figure 9-3) is a standard Pascal version of the tree traversal 
program. Sample program 2B (figure 9-4) is the source program divided into two 
separately compiled modules, using the separate compilation facilities of Pascal-86. 
The programs must be linked to the run-time support libraries (P86RNO.LIB, 
P86RNI1.LIB, P86RN2.LIB, P86RN3.LIB), 87 NULL.LIB, and any interface 


libraries required by your operating system. 


system-id Pascal-£Ss Vx.ey 


Sour 


ce File: :F5:PROGZA.LSRC 


Object File: :°5:PROGCA.C8J 


Cont 


STMT 


NAW & 


rois Specified: <none>. 
LINE NESTING SOURCE TEXT: 2F5sPROG2A.SRC 


(* This procram builas @ binary tree 


of characters from 


Lser input data and prints out the nodes of a tree in 


infix, prefixs ana pestfix notéetion. 


sists of the charectersr its position in the tree, 


An input line con- 
and tne 


eosition of its tuo childrens each item is separated from 


the next by € blank. 


Variables 7 


MaxNumNodes 7 raxirum number cf nodes in 
Gne = index of the root 
NoceCreracter - censtitutes a node in the tree 
NedeIndex = position of node in the tree 
eExeressionTtTree - binary tree which is created 
CataFile - file urhich holds user data 
16 GS 92 grrogrem TreeTraversaliCinput,-Cutput)s 
18 O const MexNumNodes = <0; 
19° 0: c@ One = 1, 
2t Q Q type Subser = C..MaxNumNodes,s 
22 6 0 Nede = recerd 
23 90 1 Symbol : char, 
24 0 1 Left +: Subser; 
25 0 1 Rignt : Subser 
ends 
ef. 60-COS Tree = arrzylSubser] of node; 
29.008 ver NoceCheracter : char; 
30 G OC NocieIndex : integer; 
31 0. 6G Expressiontree : Trees 
32 0 90 CetaFile : text; 
A ec pe a ee me ea ae ee me a a ee te le sae eine a oo *) 
35 Q procedure SuildTree;z (* build tree from user input *) 
3617 ~=« «0 ver FindRoot : bocleens 


Figure 9-3. Sample Program 2A: Binary Tree Traversal 
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15 3@ 1 #0 procedure AadNode;s (x add a node to the trea *) 
16 35 2 20 begin 
16 40 2 1 write(NodeCnaracter : 34 NodeIndex: 3);7 
17 41 2 1 witn ExpressionTree(CNodeIndex] do begin 
18 42 2 2 Symbols=NodeCharacter; 
19 43 2 2 read(DataFile-Leftd)s write(Left =: 3)7 
21 44 2 2 read(CateFiles-Richt)- write(Right : 3); 
23 45 2 2 readin(DetaFile); 
24 46 2 2 writeln 
end 
25 48 2 1 ends (* AddNoge *) 
26 50 1 © begin 
26 51 1 1 FindRcot := felse; 
27 52 1 1 wreiteln(°INPUT IS:°)- wrifelns 
29 53 1 1 AddNeae-s 
30 54 #14 1 repeat 
30 55 1 2 read(DataFile,-NodeCharactersNodeIndex)-, 
31 56 1 2 if NodeIndex = 1 then FindRoot := true 
32 57 1 2 else AddNcde 
33 58 1 2 until (FindRoot) cr CeoftOataFile)), 
35 59 1 1 writeln 
ends (* BuildTree *) 
(ec wom cote wen semen ees tere se eee eer erste essere rrer== *) 
36 63 O 0 procedure Infix(NodeIndex : Subser)s (* write out the 
. tree in infix notation *) 
37 65 1 39 begin 
37 66 1 1 with ExpressiontTreelNodeIndex} do 
38 67 1 #1 if Left <> 0 then begin 
39 68 1 2 write(’("’ 2: 1); 
40 69 1 2 Infix(Left), 
41 70 1 2 write(Symbol : 2); 
42 71 1 2 InfixCRight): 
43 72 #14 2 write(’)* : 1) 
end (* if *) 
44 74 1 else write (Symbol : 2) 
45 75 61 1 ends (*x Infix *) 
Cm me a nr et er er te etree str nese x) 
46 78 GO 0 procedure Prefix(Nodelndex : Subscer)s (x write out the 
tree in prefix notation *) 
47 80 1 #9 begin 
47 81 1 #1 with ExpressicnTree{NodeIndex] do 
48 82 71 1 if Left <> 0 then begin 
49 83 1 2 write (Symbol : 2); 
50 84 1 2 Prefix (left)? 
51 85 #1 2 Prefix (Right) 
end Cx if *) 
52 87 1 #1 else write(Symbol : 2) 
53 88 #1 1 ands €* Prefix *) 
Cm met et mm tm mm mmr eee re ee ere mmr errr re rer rere *) 
54 91 OF 9 erocedure Postfix(NodeIndex : Subscer)s (* write out the 
tree in postfix notation *) 
55 93 1 0 begin 
55 94 #1 1 with ExpressiconTreeiNodaIndex] do 
56 95 1 1 if Left <> 0 then becin 
57 96 1 2 Pestfix (Left); 
58 97 1 +2 Postfix (Right); 
59 98 1 2 write(Symbel +: 2) 
end (* if *) 
60 10C 1 1 else write (Symbol : 2) 
61 101 1 1 ends (* Postfix *) 


(pe rm re mt en rn ee ee ee ne eee eee x) 
(* The mein progrem reads in user data and displays the 
tree in Infixs Prefixs and Postfix notation. *) 


Figure 9-3. Sample Program 2A: Binary Tree Traversal (Cont'd .) 
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62 107 Q O kegin (* TreeTraversel *) 

62 108 Q 1 reset(DataFile,”:F12SaTa2”’); 

63 109 QO 1 writelns writelns writelns 

66 110 0 17 read(DataFile,-NodeCharacterrNodeIndex); 
67 #117117 #Q 1 while net eof€lateFile) do begin 
68 112 G6 2 3uilaTree; 

69 113 03 2 uritelins uriteln(° INFIX: “);7 
71 114 0 2 Infix (One); 

72 #115 QO 2 writelns uriteln(’PREFIX:°); 
74 #116 2 2 Prefix(One); 

75 #117 G 2 writelns writeln(’ POSTFIX: °); 
77 118 +O 2 Postfix Cned; 

78 #4119 OQ 2 writelns writeln 

79 #420 39 2 ends 

381 121 9 1 writeins uriteln 

82 122 0 1 end. (* TreeTraversal *) 


Summary Information: 


PROCEDURE CEFSET COOE SIZE CATA SIZE STACK SIZE 
BUILOTREE OOEZH CO74H 116¢ OC10H 160 
ADONODE O034H OQDAEn 1740 0010H 16D 
INFIX 01564 OC98H 152C QOOEH 140 
PREFIX QO1EEH COOFH 1110 OOQOEH 14D 
POSTFIX O025C0H COSFH 171¢ CCOEH 140 
TREETRAVERSAL C2ccHy d178H 2790 Of05AaH $00 OCOEH 140 
“CONST IN COCE- CO34H 52C 

Total C447H 10950 2C05AH 909 OC8CH 1405 


122 Lines Read. 
QO Errors Catectea. 


Dictionary Summary: 
230K8 Memory Available. 
6OK& Memory Used (2%). 


CKB Cisk Space Used. 
3KB out of 16KE Static Space Used (18%). 


Figure 9-3. Sample Program 2A: Binary Tree Traversal (Cont'd .) 


Source File: :£5:PRG281.SRC 
Object File: :F5:PR&S281.084 
Controls Specified: <none>. 


STMT LINE NESTING SOURCE TEXT: s£53;FRG281. SRE 
1 1 O 9 rodule SinaryTreeMairs 
2 2 0 90 cublic binaryTreeCutputs 
3 3 0 =O erocedure Infix(€NodeIndex : Subser);s 
4 4 0 0 procedure Prefix (NodeIndex : Subscer)s 
5 5 0 ¢ procedure Postfix(NodeIndex : Subser); 
6 6 0 C public BinaryTreeMain, 
7 7 OO 9 const MaxNumNedes = 20, 
8 9 0 0 type Subscr = 0..MaxNumNodes, 
9 10 #O 90 Node = recerd 
9 sh re ee | Symbol : char, 
10 12 0 1 Left : Subsers 
11 13, 02~=«+7 Right : Subser 
end; 
12 15 0 90 Tree = arraylSubser] of Nodes 


13 17 Oo 9 var NedeCharacter : char; 

14 18 OQ @ NodeIndex : integer; 

15 19 0 9 ExpressionTree : Trees 
(x This program builds a binary tree of characters from 
user input data and prints out the nodes of a tree in 
infix, prefix, and postfix motation. An input line con- 
sists of the charecter, its position in the trees and the 
position of its two childrens each item is separated from 
tne next by a blank. *) 

16 28 O 9 gerocram SinaryTreeMainCInput-Outputd)s 


Figure 9-4A. Sample Program 2B1: Binary Tree Traversal, Separately Compiled 
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17 3¢ 60D 


18 32 0 0 


19 35 0 0 
20 36 6-1~=OD 
21 38 1 #0 
22 39 2 #O 
22 40 2 1 
23 41 <2 1 
24 42 2 2 
25 43 2 2 
27 44 2 2 
29 45 2 2 
30 46 2 2 
31 48 2 1 
32 50 1 =O 
32 51 14 1 
33 S52 1 1 
35 53 1 «1 
36 54 14 1 
36 55 1 2 
37 5é 1 2 
38 57 1 2 
39 58 1 2 
41 59 14 14 
42 66 0 G 
42 67 0 14 
43 68 QO 1 
46 69 0 1 
47 76 0 (1 
48 71 2 2 
49 72 90 2 
51 73,90 2 
52 74 0 2 
54 75 9 2 
55 76 0 2 
57 77 0 2 
58 78 GO 2 
59 79° «0 2 
61 80 O 1 
62 8&1 O 1 


Summary Information: 


PROCEDURE 
BUILDOTREE 
ADDNODE 
BINARYTREEMAIN 
“CONST IN CODE= 


Total 


81 Lines Read. 
0 Errors Detected. 


Dictionary Summary: 


const One = 13 

var DetaFile texts 

Ce ere wren er er eee ce mr rr er em emer rere sre tere *) 
fFrocedure SuilaTree; (* puild tree from user input *) 


var FindRoot : beclean; 


procedure AddNodes (x add a node to the tree *) 
becin 
write(NodeCharacter : 3 NodeIndex: 3) 
witn ExpressionTreeLNodeIndex]} do begin 
Symbol:=NodeCharacter,; 
read(LataFile,Left)s write(Left 3: 3)7 
read(Catafile,Right)s writeC(Right : 3); 
readin(DataFile); 
writeln 
end 
ends (* AddNode x) 


begin 
FindRoot := false; 
writeln(’ INPUT iS:°)s writeln; 


AddNodes 

repeat 
read(JataFile,NodeCharacter,NodeIndex); 
if NedeIndex = 1 then FindRoot := true 


else AddNode 
until (CFindRoct) cr CeofldataFile))- 
uriteln 
ends (* SuiidTree *) 


(& cee enn en nn ee nn ee ee ee ee = =e *) 


(x The main program reads in user data and displays the 
tree in Infixsr Prafixr and Postfix notation. *) 


becin (* 8ineryTreeMain *) 
reset(CataFile,":FI:DATA2°); 
writelns writelns writelns 
read(JataFile-NodeCharacters,Nodelndex); 
while not eof(DatsF ile) do begin 
38uildTree; 
writelns writeln(*INFIX: °); 
Infix (One)? 
writelns writelnC°PREFIX:°); 
Prefix(Gne); 
writelns writeln(°POSTFIX: °); 
Postfix(Cned; 
writelns writeln 
end; 
writelns writeln 
end. (* BinaryTreeMain *) 


OFFSET CODE SIZE DATA SIZE STACK SIZE 
OOE2H CO74H 116C 0010H 16D 
CO34h = COATH 174Cc 0C10H 160 
O15€H 921814 2850 COC5SAr 900 OOOEH 140 

C334H S20 


C207H 7270 9GO5AH 9CD , 0062H 98D 


230KB Memcry Available. 


6B Memory Used 


(2%). 


OK8 Cisk Space Used. 
3KB out of 16KB Static Space Usea (18%). 


Figure 9-4A. Sample Program 2B1: Binary Tree Traversal, Separately Compiled (Cont'd .) 
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system-id Pascel~-2s, Vxay 


Source File: :=5:PRG252.SRC 
Object File: :F5:PRG282.03J 
Controls Specified: <none>. 


STMT LINE NESTING SCURTE TEXT: 2F52PRG282.S8RC 
1 1 0: .Q rodule SineryTreedutputs 
2 2 90 9 fublic SinaryTreeCutputs 
3 3°90 =«G procedure Infix(Ncdeindex : Subser); 
4 4 0 @ procedure Prefix(€(Neadeindex : Subser); 
5 5 90 QO procedure Postfix(NodeIndex : Subser); 
6 6 9 2 public SinaryTreeMain,s 
7 7 0 & const MaxNumNcdes = 20; 
3 9 9 9 tyoe Subscr = O.4.MaxNumNodess 
9 1¢6 90 #90 Nod? = record 
9 11 #3 7 Symbol : char? 
10 12 0 1 Lett 3: Subserz 
41 13 0 1 Right : Subser 
end; 
12 5. 00" -=0 Tree = erray[Subscr] of Nodes 
13 17 2 #9 var NodeCheracter : char; 
14 13 @ 9 NedeIndex : integers 
15 19 3 6 Zxpressicentree : Tree; 
16 21 0 9 erivete 3inaryTreeCutput-s 
Ce wm mm me eer rt te ere cert str rt esse rrerres *) 
17 24 93 9 procedure Infix(NedeIndex : Subser)s (* write out the 
tree in irfix notation *) 
18 26 1 #9 begin 
138 2 re | with ExpressicnTreelNodeIndex] do 
9 2g 1 1 if Left <> G then begin 
20 29 4 2 write(’(% +: 1) 
21 3001 2 Infix(Left); 
22 31 #71 2 write (Symbei : 2)7 
23 32 1 2 Infix (Richt): 
24 33 1 2 write (’)’% : 1) 
end (x if *) 
25 35 1 #1 else write (Symbol : 2) 
26 36061 1 end; (* Infix *) 
Cm me tr rn nn rt rr rrr tre rr ree cere erect x) 
27 39° OG procedure Prefix(NodeInaex : Subser); (* write out the 
tree in prefix notation *) 
28 41 kegin 
28 42 with ixpressionTreelNodeIndex] do 
29 43 if Left <> 0 then becin 


write(Symboi : 2)37 
Prefix (Left); 
Prefix (Right) 
enc Cx af *) 


a 

oO 

S 

, 
> 2 — 3 = = 
mMngrm a | Oo 


33 48 1 1 eise write(Symbol : 2) 
34 49 1 1 ends (* Prefix *) 

Cm em mt te me mr mre tr meer me eee rr mre rere re eeseereses x) 
35 52 0 0 procedure Postfix (NodeIndex : Subscr)s (* write out the 


tree in postfix notation *) 


Figure 9-4B. Sample Program 2B2: Binary Tree Traversal, Separately Compiled 
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36 54 1 0 begin 
36 55 1 1 witn ExpressionTreelCNodeIndex] do 
37 56 1. 1 if Left <> 0 then begin 
38 57 1 2 Postfix (Left); 
39 58 1 2 Postfix (Right); 
49 59 1 2 writeCSymbol : 2) 
end (* if *) 
41 61 1 1 elise write Symbol : 2) 
42 o2 1 1 ends €* Postfix *) 
43 63 0 6 P 


Summary Information: 


PROCEDURE CFESET CcOE Size DATA STZE STACK SIZE 
INFIX O0OCK COC1H 193C 0010H 160 
PREFIX COCTH CO8FH 143¢ OG10H 16D 
POSTFIX c15CH CO8CH 140C OC10H 160 
~CONST IN COCE- cO0CH oc 

Total O15CH 4760 OOOOH cD OC30K 480 


63 Lines Read. 
Q Errors Cetected. 


Dictionary Summary: 


23CKB Memory Availabie. 
6KB Memory Used (24). 
CKB Cisk Space Used. 
2KB out of 16KB Static Space Used (12%). 


Figure 9-4B. Sample Program 2B2: Binary Tree Traversal, Separately Compiled (Cont'd. ) 


9.3 Sample Program 3: Quadratic Roots 


The program of figure 9-5 computes the non-complex roots of a series of quadratic 
equations of the form 


y=ax?+bxt+c 


The program takes the quadratic coefficients a, b, and c from the file data, and outputs 
the roots to the file quad. When the roots to an equation have an imaginary part, the 
program does not compute the roots, but writes a message to the file RESULT on 
device :F1:. 


This program illustrates the use of REAL and TEMPREAL numbers, a non-text file, 
and file input and output via GET and PUT. 


Note that this program, like any other that performs input of numeric values using 
GET rather than READ, cannot directly handle console input. This is because console 
I/O is in the form of text files (1.e., files of CHAR values organized into lines), and 
GET does no type conversions. The program assumes that the file data is already in 
the correct (REAL) format. 


This program must be linked to CEL87.LIB, the run-time support libraries 
(P86RNO.LIB, P86RN1.LIB, P86RN2.LIB, P86RN3.LIB), the appropriate 8087 
libraries (either 8087.LIB, or E8087.LIB and E8087), and any interface libraries 
required by your operating system. 
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system-id Pascal-86s- Vxey 


Source File: :F5:PROG3.SRC 
Object File: :F5:PR0G3,C8J 
Controls Specified: <none>. 


STMT LINE NESTING SOURCE TEXT: sFSzsPROG3.SRC 


(x This program computes the non-complex roots of a quadratic equation 
cf the form axxxxZ + bex + cs It performs I/0 to a binary files but 
displeys the input ccefficients and outputs roots in @ readable form 

en the console. If the roots are imaginarys the program prints an 
appropriate messace. 


Variables: 


ZeroConst - real constant used to check for imsginary roots 
InputCoef - real input file which holds the input coefficients 
QuedResult - real output file which holds the quadratic results 
AVar,8Var-CVar - real cceefficients 
TempVar - real value for temporary storage *) 
1 15 0 QO prosram Quadratic (Output); 
2 17 O O const ZercConst = 0.C; 
3 19 9 OQ var InputCoef,-QuadResult : file of reals 
4 2d )6OlCUOO AVer-/BVar,CVar : real; 
5 21 0 QO TempVar : TEMPREAL; 
6 23 0 0 begin 
6 25 0 1 reset(InputCoefs’°:F1:0ATA3");7 (* position input file at beginning *) 
7 26 90 1 rewrite(CuacResults,”’sFT:R8ESULT’)3 (* initialize output file *) 
8 28 0 1 while not EFO0FCInputCoef) do bacin 
9 30 0 2 AVar := InputCoef%*; cet(InputCoef); (* get *) 
11 37 O 2 3Ver 3:= InputCoef*; get(InputCoef); (x coefficients *) 
13 32 0 2 CVar := InputCoef%*; get(InputCoef); (* from input file *) 
15 33 CG 2 urite(’Input coefficients are: °-/AVar,8Var-CVar); (* echo inputs *) 
16 34 0 2@ writelns write("’Reots are: ");7 
18 35 oO 2 TempVar := (8Var * 6Var) - (€4 * AVar * CVar)ds (* compute discriminant *) 
19 36 0 2 if TempVar >= ZeroConst then begin 
20 37 Q 3 TempVer := sart(TempVar); 
21 38 Oo 3 QuadResult* := (-8Var + TempVar) / (2 * AVar); 
22 39 0 3 write(QuadResult*); put(QuadResult); 
24 4G OQ 3 GuadResult* s= -(BVar + TempVar) / (2 * AVar); 
25 41 Gg 3 writeln(QuadResult’); put(QuadResult) 
26 42 0 3 end (x of if *) 
27 43 0 2 alse writeln(” imaginary’); (* print to default output file *) 
29 45 0 2 ends (* of while *) 
31 47 0 1 writeln 


end.(* Quadrztic *) 


Summary Information: 


PROCEDURE CEFSET CODE SIZE DATA SIZE STACK SIZE 
QUADRATIC OOS1H C26CH 6C8C JCC32H 50D OO0EH 140 
“CONST IN CODE- OC5S1H €10 

Total C284h €89C C0032 500 Q042H 660 


49 Lines Read. 
O Errors Detected. 


Dictionary Summary: 
230KB Memory Available. 
6K8 Memory Used (2%). 


QOKB Cisk Space Used. 
3KB out of 16K8 Static Space Used (18%). 


Figure 9-5. Sample Program 3: Quadratic Roots 
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9.4 Sample Program 4: Text Editor 


The program of figure 9-6 is a simple text editor. It reads a preconnected file of 
characters and echoes the input to the OUTPUT file, recognizing the following control 
characters and performing the indicated actions: 


() Ignore all enclosed characters. 

* Start new output line. 

/ Exchange preceding and following characters. 
Delete preceding character. 


The control characters themselves do not appear in the output. In addition, the 
program counts the number of occurrences of each capital letter in the input and 
prints out the result following the text output. 


Note that the input file is a text file; therefore, carriage returns and line feeds are 
read as blanks. The output file (the standard file OUTPUT) is, of course, a text file. 


This program illustrates the use of arrays, sets, Boolean variables and preconnection, 
as well as file input and output. Execute this program with the invocation line: 


PROGS4CCHARINPUT=DATA4) ¢cr> 
This program must be linked to the run-time support libraries (P86RNO.LIB, 


P86RN1I.LIB, P86RN2.LIB, P86RN3.LIB), 87NULL.LIB, and any interface 
libraries required by your operating system. 


Sample Programs 


system-id 


Pascal-86+4 Vx.ey 


Source File: :F5:PROS4.SRC 
Object File: :F5:PROG4.08 5 
Controls Specified: <none>. 


STMT LINE NESTING SCURCE TEXT: 2F52:PROG4.SRC 


arr 


23 
24 


Oo C const LParen 


(* This simple text editor program reads a preconnected file of characters, 


interprets certain control characters, and echoes the input to the default 


CLTPUT file. It -else reports the mumber of times each capital letter occurs. 


Tne program recogrizes the following control characters: 
(> ignore all enclosed characters 
* start = neu output line 
/  exchansce preceding and following characters 
+ delete preceding character 


Variables - 


LParens RParens Asterisks Slashs Plus - control character constants 


Ch - character variable to hold input character 


TempCh - temporary character variable used for output character 


ChariIreut ~ input file of characters which is preconnected 


Newline - boolean variable to determine when a new line is needed 
CapitallLetter - chéeracter set of capitol letters of the alphabet 


CagpCount = intecer array to held the count of each letter 
Edit ~ set of editing control characters *) 


o 9 program TextEdit(CharInput-Cutput)s 


Figure 9-6. Sample Program 4: Text Editor 
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7 27 QO 3G 

8 2&6 Q 0 

9 29 OO 0G 
10 30 OO O 
11 31 O OQ 
12 32 0 O 
13 34 0 0 
13 35 0° 1 
14 36 0 1 
15 37 0 1 
17 38 0 1 
18 39 9 #1 
19 41 0 1 
20 42 0 2 
21 43 0 2 
23 44 0 2 
24 45 Q 2 
25 46 0 3 
25 47 GCG & 
27 48 0 4 
29 5¢ QO 3 
30 51 Q 3 
31 52 0 3 
31 53 0 4 
32 54 0 & 
33 55 90 4&4 
34 56 0 3 
36 57 0 2 
38 58 0 2 
39 s9 0 3 
40 60 0 3 
42 62 9 2 
44 65 0 1 
406 66 9 #1 
48 67 QO 1 


Summary Information: 
PROCEDURE 

TEXTEDIT 

“CONST IN COCE- 
Total 


68 Lines Read. 
0 Errors Detected. 


Dictionary Summary: 


230K8 Memory Available. 
6KB Memory Lsed (24). 
OKB Disk Spece Used. 


ver CheTempCh : char-s 


Charinput : text; 

Newline : booleans 

Capitalletter : set of °A’..°2°% 
CapCount : arrayl’A’. “7°) of integer; 
Edit : set of header. cele ash 


kegin 


CapitallLetter := ([°A’..°2°); (x perform initialization *) 
Edit := (°C€'°,%+%,’%%’, 

for Ch := “A” to = 
reset(CherInput)s 


TempCh 3 eG 


do CapCount(Ch] := 0; 


while not eof (Charinnut) do begin 
read(CharInput-Ch)- (x input a charecter *) 
if (Ch] * Capitalletter <> [2 then CapCount(Ch)] := CapCount(Ch] + 17 
if [Ch] * Edit <> CJ] then 


case Ch of (x action for control characters *) 
LParen : begin (* ignore embedded text *) 
reveat read(CharInput-Ch) until Ch = RParen; 
read(CharInput-Ch) 
end, 


Asterisk : Newline := true, (* flag a new line *) 
Plus : read(CharInput,TempCh)s (* delete preceding character *) 
Slash : begin (* perform character exchenge *) 
Cr := TempCh, 
read(CharInput,-TempCh); 
end 
ends(* case *) 
if CTempCrh] * Edit = [J then write (TempCh), 
if Newline then begin 
writeln; 


Newline := false 
end; (* if *) 
TempCnh := Ch (* assign output character for next loop *) 


ends (* while *) 


writeln(TempCh); writeln; (* write out last character *) 
for Ch := “A’ to °2° do write(€Ch : 3-CapCount(Ch] : 2); 
writeln 


end. (* TextEdit *) 


CEFSET CCOE SIZE OATA SIZE STACK SIZE 
0011H C2S5FH 7030 J0054H 840 OCQEH 140 
C011 170 
920CH 7200 QOC00C54H 840 O042H 660 


4KB out of 16K8 Static Space Used (25%). 


Figure 9-6. Sample Program 4: Text Editor (Cont’d.) 
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systemnrid 


9.5 Sample Program 5: Interrupt Processing 


The program of figure 9-7, designed to run on an iSBC 86/12A system rather than 
on a development system, initializes the 8253 interval timer on the iSBC 86/12A 
board to interrupt the host processor every 10 milliseconds. This program illustrates 
the use of Pascal-86 predefined procedures for port input/output (INBYT and 
OUTBYT) and interrupt control (SETINTERRUPT and CAUSEINTERRUPT). 
It also shows how to bypass Pascal’s type checking using variant records, and how to 
manipulate bits using sets. 


Since this program is designed to run in a bare machine (non-operating system) 
environment, it need only be linked with the run-time support libraries 
RTNULL,LIB,P86RN1.LIB (in that order) and 87NULL.LIB. 


Pascal-86- Vx.y 


Source File: 
Object File: 
Controls Specified: <none>. 


2F5:PROG5.SRC 
sFS:PROG5S.OBY 


STMT LINE NESTING SOURCE TEXT: 2F5:PROGS.SRC 


Fun 


Now 


10 


11 


12 
13 
14 


11 


14 
15 
16 


19 
20 
21 


28 
29 


31 


34 


42 


44 


ooo 


ooo 


(x This program uses an 8253 interval timer on an iSBC 86/12A 
board to interrupt the host processor every 10 milliseconds. 


Sample Programs 


It.assumes the 86/12A board is set up as a standard Series-III board 


is set ugy with: 
- counter 0 of the on-board 8253 free, and its interrupt strapp 
to level 2 of the on-board 82594. 
- The ommboard 82594 initialized as on the Series-III- with its 
8 interrupts mapped in from 56 to 63. 
*) 


0 program IntervalTimer; 


(* 8253 Port eddress definitions. *) 


0 const CountControlPort = OO6H; 
0 CountRegO = ODOH: 
0 InitializeRecgO = Q30H; 
(* 8259a Port address and control word definitions. *) 
0 IMaskRegPort = OC2H; 
0 IControlPort = OCOH- 
0 EndofiInterrupt = 020H; 
(x Define a set of interrupts to use to mask the 82594 interrup 
(* The 8259A assigns interrupt levels from right to left in its 
register, the same order that PasScal-86 assigns bits to set 
*) 
0 type IntlLevels = (10, I1- I2,s 13, I4- 154 I6s 17)2 
0 IntSet = Set of Intlevels; 
0 var CountCounts : LONGINT; (* Extend timer here. Holds coun 
10 msec. intervals recieved. 
(Rm tr tn et en ee ne eee ees eeeceenee -—- 
0 procedure ResetCounts 
(* This procedure loads the counter value with 12300 
so that the counter will count down for exactly 10 
milliseconds. ( The iSBC 86/12A clock rate is 1.23MHz.) *) 
(* Use a variant record to map two bytes "on top of” a word. 
Note that the low byte precedes the high byte. *) 
0 var Count : RECORD CASE BOOLEAN OF 
1 true: € FullWord: WORD); 
1 false:(€ Lows High: 0..255) 


ENC; 


Figure 9-7. Sample Program 5: Interrupt Processing 


ed 


t mask *) 
control 
elements. 


t of 
*) 
*) 
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15 47 1 9 begin 

15 48 1 #1 Count.eFullWord := 123003 (* 10 milliseconds 2 1.23 Mhz *) 

16 49 1 #1 OCUTBYTCCountRegOd-Count.Low); 

17 50 1 1 OUTBYTCCountReg0-Count.«High) 
ends (* ResetCount *) 
(me Re et eee meee teem ese resceecere *) 

18 54 0 0 grocedure InitializeChip;s (* Initialize the 8253 by setting the control 
word to select counter O,» read/load low-order byte then high-order 
byte, interrupt on a terminal counts and accept count in binary. 
(control word = 30H} ResetCount is called to load the counter.*) 

19 59 1 0 var IMask : IntSet-, 

20 61 1 =O begin 

(* Initialize Counter 0. *) 
20 63 1 #1 OUTBYT(CountControlPorteInitializeRegO); 
21 64 1 1 RESETCOUNT; 
(* Nows enable the interrupt level corresponding to timer 0. 
On the Series-III boards it is mapped at interrupt level 2 
on the 82594, which maps to the 8086 level 58. *) 

22 70 #14 ~=«#1 INBYTCIMaskRegPort, IMask); 

(* The expression IMask ~ CI2] yields a set of interrupts with 
I2 removed. Tris turns off the bit corresponding to interrupt 
level 2 on the 8259, which is our timer. 
(Turning the bit off in the mask register enables the interrupt) *) 

23 75 #14 = #1 OUTBYTCIMaskRegPort, IMask - [CI2));7 

24 77 ~+#+14~«+21 ends (* InitializeChip *) 

(ee te mmm eee me te ee eee meet eee een net eee eee mem ewe ere totes escort ooooer= *) 
SINTERRUPT(CServicelInterrupt) 

25 81 OG 0 rrocedure ServicelInterrupts (* This procedure services interrupt 58 when that 
interrupt cecurs. To make the 
program more usefuls add code to take action before starting the 
next interval. *) 

26 86 1 =O begin 

26 87 17 1 ResetCounts 

27 88 1 #1 CountCounts := CountCounts + 17 

(x Must clear the interrupt on the 8259A. *) 

28 91 #14 = 1 CUTBYTCIControlPort,s EndofiInterrupt); 

29 92 1 1 ends (* ServicelInterrupt *) 

Cm rr me eer eter eres eres eres serce x) 

30 95 0 0 begin 

30 96 0 1 SETINTERRUPT(58-ServiceInterrupt); 

31 97 0 1 CountCounts := Of 

32 98 O 1 InitializeChips 

33 99 0 1 while true do 

34 100 0 17 end. (* IntervalTimer *) 


Summary Information: 


PROCEDURE OFFSET CODE SIZE DATA SIZE STACK SIZE 
RESETCOUNT OOOOH O01AH 26C 0006H 60 
INITIALIZECHIP 001AH 0020H 320 0008H 80 
SERVICEINTERRUPT 003aH 0038H 560 0026H 38D 
INTERVALTIMER 0072H O003BH 590 O0004H 40 OOOAH 100 
“CONST IN CODE- COOCH 00 

Total COAOH 1730 OQ004H 40 O072H 1140 


100 Lines Read. 
0 Errors Detected. 


Dictionary Summary: 
230K8 Memory Available. 
6KB Memory Used (2%). 


OKB Disk Space Used. 
2KB out of 16KB Static Space Used (12%). 


Figure 9-7. Sample Program 5: Interrupt Processing (Cont'd .) 
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9.6 Sample Program 6: Matrix Multiplication 


The program of figure 9-8 reads in pairs of eight-by-eight two-dimensional matrices 
of integers from the file INPUT, computes the product, and writes the output to the 
file OUTPUT. It illustrates the use of multi-dimensional arrays, value and variable 
parameters, array arguments, and text file input and output. 


The algorithm used in this program was chosen for its simplicity. It may not be 
mathematically optimal. 


This program must be linked to the run-time support libraries (P86RNO.LIB, 
P86RN1.LIB, P86RN2.LIB, P86RN3.LIB), 87NULL.LIB, and any interface 
libraries required by your operating system. 


system-id 


Pa 


Source File: 
Object File: 


Controls Specified: 


STMT LINE 
1 11 
2 13 
3 15 
4 17 
5 18 
6 23 
? 24 
8 25 
8 26 
9 27 

10 28 
12 29 
14 31 
15 32 
16 37 
17 38 
18 39 
18 40 
21 41 
22 42 
24 43 
26 45 
27 46 


cal-36,7 


NESTING 


oe 
0 0 
o 0 
9 0 
0 3s 
G 0 
1 0 
1 0 
eS 
ae 
16 xe 
1 2 
+ 
11 
o 0 
1 0 
1 6 
24 
4 
4° 32 
1 2 
, A 
ae 4 


2FS:PROGE.LSRC 
sF5:PROGE.O8J 
<none>. 


SGURCE TEXT: 2FSsPROSE.SRC 

(x This program reacs in peirs of two-dimensional square matrices of 
intecers from the defzult input file, computes the products and writes 
the results to the default output file. 


veriebles: 


MatrixSize - number of rows cr columns (all matrices are square) 
InputMatrixOne, InputMatrixTwe - integer input matrices 
GutputMetrix ~ integer output matrix 

QuitChar - cheracter variable te auery the user to quit *) 


erocram MatrixMultCInput,/Outout); 
const MatrixSize = 2; 
type Matrices = errayli..MatrixSize,1..MatrixSize] of LONGINT; 


var InputMatrixCnes InputMatrixTwor OutputMatrix : Matrices, 
QuitChar +: chars 


(8 mm nn nn nn nn rr rn rete eneceree 
Promets user to enter a natrix and reads it in by columns/rows *) 


procedure ReadMatrix (ver InMatrix : Matrices); 
var I,J : integer, 
becin 
writeln(’°INPUT AN 8X8 MATRIX:°); 
for I := 1 to MatrixSize do begin 
fer J 2:2 1 to MatrixSize do read(InMatrix(CI-JI)2 
reedin 
ends (* for *) 
writelns writeln 
ends (* ReadMatrix *) 


(x ere mn nn nn ee er rte ene seer 
writes out a matrix by columns/rows x) 


proceaure writeMatrix(OutMatrix : Matrices), 
var I,J : integer; 
begin 
writelns writeln(’MATRIX PRODUCT IS:°)s writelns 
for I := 1 to MetrixSize do begin 
for J i= 1 to MatrixSize do write(OutMatrixfCI-s] : 433 
writeln 
ends (* for *) 
writelns writeln 
ends (* writeMatrix *) 


(me em mt mm rere reer asecrrers 
Multiglies two input matrices *) 


Figure 9-8. Sample Program 6: Matrix Multiplication 
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28 51 0.66U~+*#é procedure Product (var SrodMatrix : Matrices; 
28 52 1 9 CneMatrix,TwoMatrix : Matrices); 
29 53 14 #¢ var Iv J- Kk : integer; 
30 54 1 0 Result : LONGINT; 
31 55 1 ¢ begin 
31 56 1 1 for I := 1 to MaetrixSize de 
32 57 1 1 for J := 1 to MatrixSize do begin 
33 58 1 2 Result := 0; 
34 59 1 2 for K := 1 to MatrixSize do 
35 60 1 2 Result := Result + OneMatrix(CI-K] * TwoMatrix(K, J]; 
36 61 1 2 ProdMatrixiI,Ji := Result 
and (* for *) 

37 63 1 1 ends (* Product *) 

i se aces a a ea a ean oa a et ee ae re en a ae a x) 
38 66 90 3G begin (* MultMatrix *) 
38 67 S$ 1 repert 
38 68 OQ 2 ReadMatrix(InputMatrixOne); (* input first matrix *) 
39 69 O 2 ReadMatrix(InputMatrixTwo); (* input second matrix *) 
40 70 «0 2 Product (CutputMatrixrinputMatrixOne,InputMatrixTwods (* multigly them *) 
41 71 0 2 WriteMatrix(OutputMatrix); (* output the resulting matrix *) 
42 72 0 2 write(’ANCTHER MATRIX? °); (* query for another matrix *) 
43 73 0 2 read(QuitChar);s writeln 
44 74 QO 2 until not (QuitCrer in C°Y’s’y%}) 
45 75 0 2 end. (* MultMatrix *) 


Summary Information: 


PROCEDURE CFFSET CODE SIZE DATA SIZE STACK SIZE 
READMATRIX 0QO44F CCS5H 133C OO1AH 26D 
WRITEMATRIX OOCSH CCO9GH 1530 CO1AH 26D 
PRODUCT O162H CCA7H 1670 OC1EH 300 
MATRIXMULT CecsH 211GH 2720 90311 7850 dO206H 518D 
~CONST IN CODE- COS4H 689 

Total C319H 7935 90311H 7850 O28CH 6520 


75 Lines Read. 
OQ Errors Getected. 


Dictionary Summary: 
23CK8 Memory Availeble. 
6B Memory Used (2%). 


OKS Oisk Space Used. 
4K8 out of 163 Static Space Used (25%). 


Figure 9-8. Sample Program 6: Matrix Multiplication (Cont’d.) 


9.7 Sample Program 7: Maze Game 


The program of figure 9-9 finds a path through a maze and writes out the solution. 
The maze is a 7 by 7 square consisting of passageways (represented by dots) and 
walls (represented by W’s). For example: 
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The starting point is always the top left corner, and the exit is the bottom right corner. 
Movement through the maze can be vertical or horizontal, but not diagonal. If a path 
through the maze exists, the program prints out a square matrix in which up-arrow 
t symbols represent the path, X’s represent points visited that are not part of the 
path, dots represent passageway points that were not visited, and W’s represent walls. 
For example, the output corresponding to the sample input above is: 


t X X W. WwW. 
t WWWX WWW 
t WX XW. . 
t t X Wt ft ft 
« t Wt & Wt 
WE te We ee ot 
Pas es a 


If there is no possible path through the maze, the program writes out a message in 
place of the solution. You must input the maze configuration without any blanks. 
Blanks are added to the output for readability. 


The procedure findpath, which does the work of finding a way through the maze, is 
directly recursive—that is, it calls itself. This program must be linked to the run-time 
support libraries (P86RNO.LIB, P86RN1.LIB, P86RN2.LIB, P86RN3.LIB), 
87NULL.LIB, and any interface libraries required by your operating system. 


Systemrmid Pescal-f6s Vx.y 


Source File: :F5:PROG7.SRC 
Object File: :F5:PROG7.084 
Controls Specified: <none>. 


STMT LINE NESTING SCURCE TEXT: 2F5:PROG?7.SRC 


(* This maze game program first prompts the user to enter a seven-by-~seven 
meze@r where a “.” indicates a path and a °W" represents a wall. The program 
then determines whether or not there is A way out by beginning ain the upper 
left-nand corner and trying to exit at the lower right-hand cerner. The 
erogram marks with “X%s the trail which actually leads outs if any. If there 
1S no way out of the maze, the program displays an appropriate messace. Other~ 
wise it displays the final meze and prompts the user to enter another maze. *) 


= 
‘oO 
(>) 
Cc 


program AMazeGame(CInput,Output); 


2 11 ¢@ Q const Tor = 1; (x constant to mark the smallest row number *) 
3 12 0 OQ Bottom = 7; (x constant to mark the largest row number *) 
4 13 0 0 Left = 1, (* constant to mark the smallest column number *) 
5 14 2 #30 Richt = 7; (x constent to mark the largest column number *) 
} 15. 5:00 29 Path = °.°? (* constant to mark a path input by user *) 
7 1é O 0 Trail = ’**% (* constant to mark the trail the program took *) 
8 17 90 OQ Mark = “x, (* constznt to mark the path which was travelled *) 
9 18 O O Size = 73 (* number of columns or rows in tne maze *) 
19 20 Cc O var Maze : arreyl1.-SizerteeSizel] of char; (x array to hold maze *) 
11 21 0 90 weyOut : bcolean, (x flag to indicate a way out *) 
12 22 0 90 InputChar : cher-s (* prompt user to play again *) 
(emt em te ee mm mt et eet me ee me wee termes toes ere *) 
13 25 9 0 procedure RezdMéeze, (x procedure to input the user’s maze *) 
14 26 1 =O var I, J 2 1.2S512¢e,7 
15 27 1 +O begin 
15 28 «(1 1 writein(* INPUT A MAZE:°)+s writelns 
17 2g 1 1 for I := 1 to Size do begin 
18 30.64 2 for J := 1 to Size do read(MazelI-JJ)2 
20 31. = 1 2 reedin 
end (* for *) 
21 33 «1 1 end;s(* ReadMaze *) 


Figure 9-9. Sample Program 7: Maze Game 
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58 
59 
6C 


62 
63 
64 
65 
6s 
6? 
68 
69 
76 
71 
72 
73 
74 
75 


77 
78 


— 2 a 3 = C) 


420 


a oe Bo we a a a 


-— 


ao OCcoaODO009N00 


OQ 


‘ 


WWMM MMM | oO 


nuMwe=OO0 


— 


Mn wr Mr Nr MN PD A -O0 


_ 


nmr 


precedure WriteMaze,s (* procedure to output the maze *) 
var I, J : 1..Sizes 
begin 
writeln(’ PATH THROUGH MAZE IS:’)- writeln,; 
for I:= 1 te Size do begin 
for J := 1 to Size do write(MazelI-J] =: 2)3 
writeln 
end (* for *) 
ends (* WriteMaze *) 


(* Recursive procedure to find a path through the maze. This procedure 
continues to call itself until either the way out has been found or it has 
determined there is no way out. The algorithm begins at the upper right-hand 
corner of the maze and tries to move to the lower left-hand corners marking 
tne path it has traveled with an X. The algorithm first tries to move 


right, then downs then left, then up. If there is a way outer the procedure 
vrarks the trail with up-arrow symbols as the recursion levels decrease. 


Row - paremeter to indicate row number 
Column ~ perameter to indicate column number x) 


procedure FindPeth(Rows Column : integer); 
begin 
if (Row = 8cttom) and (Column = Right) 
then WayOut := true 
else begin 
MazeCRew,Column]3 := Mark; 
if Column <> Richt then 


if MazeCRow,-Column + 1] Path then 


FindPath(Row,Column + 1)7 (* move right if possible *) 
if (not WayGut) and (Row <> Bottom) then 
1f MazefRow + 1/Column] = Path then 
FinaPath(Row + 1/Column); (x move down if possible *) 
if (not WeyCut) and (Cclumn <> Left) then 
if MazeLRows-Column - 173 = Path then 
FindPath(Rew,Column ~ 1)2 (* move left if possible »*) 


if (not WayCut) and (Row <> Top) then 
if MazelRow - 1-Column] = Path then 
FindPatn(Row - 1-Column) (* move up if possible *) 
ends (* else *) 
if wayOut tnen MazelRow,Column] := Trail 
ends (* FindPath *) 


(x The main program inputs a mazer initially assumes there is no way outs then 
cells the recursive procedure FindPath to find a way out if there is one. If 
there is no way outs the proscram prints a messages otherwise, it prints the 
final maze. *) ° 


begin (x AMezeGame *) 
repeat 
ReedMaze; 
wayOut := false; 
FindPath(Top-Left); 
if wayCSut then writeMaze 


else begin (* if no way outs print message *) 
writelns wraiteln(°NO PATH THROUGH MAZE FOUND.” ), 
writeln 


ends (x else *) 
writeln; writeln(”’ ANOTHER MAZE? CY or ND“); 
readin(InputChar) 
urtil not (IngutCrar in C’y’s’Y"I) 
ende (* AMazeGame *) 


Figure 9-9. Sample Program 7: Maze Game (Cont’d.) 
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9.8 Sample Program 8: List Processing 


The program of figure 9-10 builds a list of first names in alphabetical order as they 
are input. It reads in each name and inserts the name in an alphabetical linked list. 
It illustrates the use of dynamic variables and pointers to form a linked list. 


This kind of data structure is an alternative to non-dynamic data structures like the 
array of records used for the tree in sample programs 2A and 2B. (Sample programs 
2A and 2B could also have been implemented using dynamic variables. ) 


This program must be linked to the run-time support libraries (P86RNO.LIB, 
P86RNI1.LIB, P86RN2.LIB, P86RN3.LIB), 87 NULL.LIB, and any interface 
libraries required by your operating system. 


Sample Programs 


systemmid 


Pascal-&6, Vx.y 


Source File: 
Object File: 
Controls Specified: <none>. 


2F52PROG8.SRC 
sF5:PROG8.0BN 


STMT LINE NESTING SOURCE TEXT: :F5:PROG8.SRC 


40 
41 


43 
44 
45 
46 
47 
48 
49 


Ooo0onoo 


— 2d 


—_ oo ww a od 


(* This program reads in names of up to 20 characters and builds 
an alphabetical list. 


veriables - 


Head - pointer to mark the head of the list 
Name - cheracter array to hold a name in the list 
ResponseChar ~- used to ask user for more input *) 

0 erogram SortlList(Input, Output) 7 

C const NameLength = 20; 

0 type ListElement = packed array[1..NameLength] of char; 

0 List?tr = “ListRecord; 

0 ListRecord = record 

1 Person : ListElements 

1 Next 3: ListPtr 

ends (C*records) 

0 var Heed =: ListPtrs 

0 Name : ListfElement; 

0 ResponseChar : char; 

0 Name8uffer : array[1..NameLength] of char; 

0 TempPtr =: ListPtr; 

(me nr a a a re en eee ee nw ee ee ee ee eee *) 

0 procedure InsertName€Name : ListElement)s («x Procedure to enter names to the 
list. It add names to the front of the list unless they are 
alphabetically greater. It scans the lists setting SwitchOrder 
when the correct location is found and adding the name in that 
locaticn. 

Variables -~ 
Peinter - primary pointer used in setting up linked list 
SwitchPointer - temporary pointer used when switching list order 
NewPointer- pointer to point to new name being inserted 
SwitchOrder - noolean flag to indicate order needs switching *) 

0 ver PointersSwitchPointer-NewPointer : ListPtr; 

0 SwitchOrder : boolean; 

0 begin 

4 SwitchOrder := true; 

1 Pointer := Heads 

1 while (SwitechOrder) and (Pointer <> nil) do 

1 if Neme < Poirter*.Person then SwitchOrder := false 

1 else begin 

2 SwitchPointer := Pointer; 


Figure 9-10. Sample Program 8: List Processing 
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input a name *) 


’ 


21 50 1 2 Pointer := Pointer*.Next 
ends €* else *) 
23 52 1 1 new(NewPointer); 
24 53 1 1 NewPointer*.Person := Name; 
25 54 1 1 NewPointer*.Next := Pointer; 
26 55 1 1 if Pointer = Head then Head := NewPointer 
27 56 1 1 else SwitchPcinter*.Next := NewPointer 
28 57 1 4 ends (x InsertName *) 
( Rm me mm mt mee te me mn ee ee eee eee ee ee *) 
29 61 QO 0 procedure ReadName(var Name : ListElement); (* 
30 62 1 OQ var i : integer; 
31 64 1 #9 begin 
31 65 1 #1 for i := 1 to NameLength do NameBufferfLi] := °% %3 
33 66 1 1 for i := 1 to NameLength do 
34 67 1 1 if not eoln then read(Namefufferlil); 
36 68 1 #1 pack (NameBuffer,1/Name); 
37 69 $4 1 readln 
ends (* ReadName *) 
( Rm rr ee ee we en nn en ee ee x) 
38 73 OO O procedure WriteNames (* output a linked list *) 
39 75 1 #0 begin 
39 76 4 = 1 TempPtr := Head; 
40 77 ~ #«4~—~O 14 while TempPtr <> nil do begin 
41 78 1 #2 writeln(TempPtr*.Person) 7 
42 79 1 2 TempPtr := TempPtr’*.Next 
end (* whlie *) 
4&3 81 #1 #1 end; (*x WriteName *) 
(Rm nr er we ee ewe ew ee ee ee 
44 84 90 0Q kegin (€* SortList *) 
44 85 0 1 Head := nil; 
45 86 0 1 writeln(’Begin inputting names °); 
46 87 0 1 reveat 
46 88 OO 2 ReadName(Name); 
47 89 G 2 InsertName (Name); 
48 c 0 2 urite(’Mere names? °); 
49 91 0 2 readin (ResponseChar); 
50 92 0 2 until (ResponseChar in [’°n’s’N’])3 
52 93 0 1 WwriteName 
ende€(* SortlList *) 
Summary Information: 
PROCEDURE OFFSET CCDE SiZeé OATA SIZE STACK SIZE 
INSERTNAME O02FH O0088H 1840 OQ16H 220 
REAONAME GCE7H CO61H 970 0014H 200 
WRITENAME 0148H OQOO4CH 7709 COOEH 140 
SORTLIST 019SH COFFH 2€550 O0C41H 650 0016H 220 
-CONST IN COCE- CC2FH 47D 
Total C294H 6600 00041H 650 OCG82H 1300 
95 Lines Read. 
O Errors Cetected. 
Dictionary Summary: 
230K8 Memory Available. 
6KB Memory Used (2%). 
OKB Cisk Space Used. 
3K6 out of T6KB Static Space Used (18%). 


Figure 9-10. Sample Program 8: List Processing (Cont'd. ) 
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9.9 Sample Program 9: Character Input/Output 


The program of figure 9-11 echoes characters that are entered at the console. It illus- 
trates the use of FILE OF CHAR and lazy I/O to read characters one at a time 
from the console (instead of using line-edited TEXT files). 


This program must be linked to the run-time support libraries (P86RNO.LIB, 
P86RNI1.LIB, P86RN2.LIB, P86RN3.LIB), 87 NULL.LIB, and any interface 
libraries required by your operating system. 


system-id Pascal-86s Vx.y 


Source File: :FS5:PROG9.SRC 
Object File: :F5:PROG9.O0BJ 
Controls Specified: <none>. 


STMT LINE NESTING SOURCE TEXT: sFS:PROGI.SRC 


(* Illustrate the use of a FILE OF CHAR to obtain character at a time 
input from the console Cinstead of linetediting). 

Note that TEXT files are line-edited, so that INPUT, the "standard" 
input file, since it is a TEXT file, will use line~editing for input. *) 


(* Using Pascal I/0 te interact with a console device is a little 
trickyee.e Pascal-&86 has taken the approach of Lazy I/O, as outlined 
in chapter 8 of the manual (see discussion of RESET) *) 


1 10 0 60 FROGRAM ECHOCINCHAR, CUTPUT),; 
(x FILE OF CHAR is NOT lineredited: the run-time system 


uses the DGSSPECIAL routine to indicate that transparent 
input is desired. (TEXT files use line-edited input). *) 


2 45 0 0 VAR INCRAR: FILE OF CHAR; 
3 16 0 QO CH: CHAR; 
4 18 O QO BEGIN 
(* RESET and GET are defined to read in a character to the buffer 
(before tne prompt is written). But, Lazy I/O delays the actual 
read until the buffer variable CINCHAR*) is referenced in the 
midale of the loop. *) 
4 24 0 1 RESETCINCHAR, °:CI:°); 
5 25 0 4 REPEAT 
5 26 0 2 WRITEC’ TYPE A CHAR: °)e 
(* Re sure to copy the character from the input buffer 
(C"Filled" by RESET and GET) before doing another GET. *) 
6 29 0 2 CH := INCHAR*%; 
7 30 Q 2 GETCINCHAR); (* WON'T actually do a READ until INCHAR*% is referenced 
the next time around the loop. *) 
8 32 0 2 WRITELNC’YOU TYPED A: °%, CH); 
9 33 0 2 UNTIL CH = *% 7% 
11 34 O 1 END. 


Summary Information: 


PROCEDURE OFFSET CODE SIZE DATA SIZE STACK SIZE 
ECHO O02CH OOCFH 2C7D =600611h 17D OOOEH 14D 
-CONST IN COCE- O02CH 440 

Total COFBH 2510 00011 17D 0042H 66D 


34 Lines Read. 
O Errors Cetected. 


Dictionary Summary: 
230KB Memory Available. 
6KB Memory Used (2%). 


OKB Disk Space Used. 
2KB out of 16K3 Static Space Used (12%). 


Figure 9-11. Sample Program 9: Character Input /Output 
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COMPILER CONTROLS 


You control the operation of the Pascal-86 compiler by using compiler controls that 
allow you to specify options such as inhibiting extension warning messages or gener- 
ating debug records. All controls have default values preset to their common uses. 


By default, the Pascal-86 compiler will produce two files: source.OBJ for the object 
module with type records, and source.LST for the source listing including error 
messages, where source is the filename (without extension) of the Pascal source file. 
If the NOEXTENSIONS control is active, the compiler will also issue warning 
messages when it detects an Intel extension to standard Pascal, and copy all errors 
and warnings to the console. 


If you do not want to change these default values, you can safely skip this chapter. If 
you need to change any control defaults, you should read the following sections and 
refer to individual controls in section 10.3. A summary of these controls is provided 
in table 10-1. 


Table 10-1. Summary of Pascal-86 Compiler Controls 


CHECK/NOCHECK CH/NOCH NOCHECK Check for arithmetic overflows, 
stack overflow, and out-of-range 
assignments and subscripts 


during compilation and run time. 


CODE/NOCODE CO/NOCO NOCODE Allow or prevent listing of approx- 


imate assembly code. 


COND/NOCOND None COND Determine whether text skipped 
during compilation will appear in 


the listing. 


*DEBUG/NODEBUG DB/NODB NODEBUG Genrate debug records in the 


object module. 
EJECT EJ 


*ERRORPRINT/ 
NOERRORPRINT 
*ERRORPRINT (file) 


*EXTENSIONS/ 
NOEXTENSIONS 


IF/ELSEIF/ELSE/ENDIF 


INCLUDE (file) 


INTERRUPT( proc [=n][....]) 


LARGE/COMPACT/SMALL 


LIST/NOLIST 


EP/NOEP 


ET/NOET 


LA/CP/SM 


LI/NOLI 


Paging is automatic 


ERRORPRINT(:CO:) 


EXTENSIONS 


not applicable 


not applicable 


not applicable 


Forces the start of a new page of 
printed output. 


Write all compiler-generated error 
messages to the specified file. 


Allow Intel extensions to standard 
Pascal, or (NOEXTENSIONS) 
issue a warning whenever the 
source code contains any exten- 
sions to standard Pascal. 


Enable the actual conditional 
compilation capability by testing 
for conditions that are based on 
the value of switches. 


Includes other source files as input 
to the compiler. 


Designates procedures as inter- 
rupt procedures, and generates 
interrupt vector. 


Determine the memory address- 
ing techniques of a module being 
compilation. 


Allow or prevent listing of source 
lines. 


Compiler Controls 
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Table 10-1. Summary of Pascal-86 Compiler Controls (Cont'd .) 


*OBJECTI(file)]/ OJ/NOOJ OBJECT(source.OBJ) | Specify a filename for the object 
NOOBJECT module, or prevent the creation of 
an object module. 


*OPTIMIZE(n) OPTIMIZE(1) Governs the level of optimization 
performed when generating object 
code. 


*PRINT{(file)|/NOPRINT PR/NOPR PRINT(source.LST) Allow or prevent printed output, or 
select device or file to receive 
printed output. 


RESET/SET Control the value of switches. SET 
establishes a value; RESET 
restores the value to 0. 


SUBTITLE('subtitle’) no subtitle Put a subtitle on each page of 
printed output, and causes a page 
eject. 


*SYMBOLSPACE(n) $S(16) Sets the maximum amount of 
memory available for the compi- 
ler’s internal table. 


*TITLE( title’) TT module name in Puts a title on each page of printed 
source code output. 


*TYPE/NOTYPE TY/NOTY TYPE Include or omit type records in 
object module. 


*XREF/NOXREF XR/NOXR NOXREF Allow or prevent a cross-refer- 
ence listing of source program 
identifiers. 


“Primary control (all others are general). 


10.1 Introduction to Compiler Controls 


You can specify a control in the command line used to invoke the compiler, or in 
control lines that appear as part of the source file. In your specific host-system appen- 
dix, you will find information on the command line used to invoke the compiler. 


When you specify a control in the invocation command line, the control remains active 
unless another control overrides it. A discussion of the types of controls and the rules 
governing them follows; specific cases of controls overriding other controls are 
discussed in 10.2. These cases are summarized in table 10-2. 


To override the controls specified in the invocation line, controls must appear in the 
source file itself. For example, if the invocation line specified only the NOLIST control 
(all others being set to their default values), then the control to override NOLIST is 
ils opposite form: LIST. It would appear in the source file as follows: 


$LIST 


A control line is a source line starting with a dollar sign ($) in the leftmost column. 
In this example, the compiler will now list the source program lines until the next 
occurrence, if any, of NOLIST. (All controls are described in 10.3.) 


You use control lines to selectively control the compilation of sections of your source 
file. For example, you might want to suppress the listing of sections of your program 
or cause page ejects to start listings on new pages. Whenever the compiler sees a 
dollar sign ($) in the leftmost column of a source line, 1t assumes that the line is a 
control line, even if the dollar sign is embedded within a comment. 


Pascal-86 User’s Guide 


Pascal-86 User’s Guide Compiler Controls 


There are two types of controls: primary and general. Primary controls must occur 
either in the invocation command line or in a control line that precedes the first 
noncontrol line of the source file. You specify primary controls in the invocation line 
or put an initial set of primary control lines before the first source program line. You 
use primary controls as “global” controls that must be set before any compiling begins. 
These controls cannot be changed during compilation. 


General controls may occur either in the invocation command line or in a control line 
located anywhere in the source file. These controls may be changed during compila- 
tion. General controls can override each other, but they cannot override primary 
controls. General control lines in the source file are considered Intel extensions to 
standard Pascal that cause warning messages if the NOEXTENSIONS control is 
active. 


All controls have default values that are active unless you explicitly specify their 
opposite values. In typical compilations, you might not specify any controls and employ 
only the default values. 


If the compiler detects an error caused by a primary control in the invocation line or 
in the initial set of primary control lines in the source file, 1t stops compiling and 
issues an error message to the console. If the compiler detects an error in general 
control lines (after the first set of primary control lines), it reports the error in the 
same manner as other compiler errors. Chapter 13 provides a discussion of all compiler 
error messages. 


Table 10-2. Summary of the Effects of Controls on Other Controls 


Control(s) 
Affected or 
Overridden by It 


Control(s) that 
Override It 


Control(s) that 
Affect It 


Control 
Used 


“OBJECT *NOOBJECT 


CHECK 


CODE 


COMPACT 
COND 


“DEBUG 


“EJECT 


“ERRORPRINT(file) 


*“NOERRORPRINT 


*NOEXTENSIONS 


INCLUDE (file) 


INTERRUPT( proc [, 


LARGE 
NOLIST 


“OBJECT (file) 


-) 


NOCHECK 


NOCODE 


SMALL, LARGE 
NO COND 


*“NODEBUG 


*TITLE( title’) 
SUBTITLE(' subtitle’) 


*“ERRORPRINT(:CO:) 
*NOERRORPRINT 


*“ERRORPRINT(file) 


“EXTENSIONS 


SMALL, COMPACT 


LIST 
SUBTITLE(‘subtitle’) 
EJECT 


*“OBJECT(source.OBJ) 
INTERRUPT( proc [,...]) 
“DEBUG 

*TYPE 


*PRINT(file) 
“OBJECT 


“OBJECTifile) 


*PRINT(file) 


*ERRORPRINT (file) 
*NOERRORPRINT 
*PRINT(file) 


*NOOBJECT 


*PRINT(file) 


NOCHECK 


NOCODE 
*“NOPRINT 


*“NOOBJECT 


NOLIST 
*“NOPRINT 


*NODEBUG 
*“NOOBJECT 


*“NOPRINT 
NOLIST 


*“NOERRORPRINT 


*ERRORPRINT(file) 
*“NOPRINT 


*EXTENSIONS 


*NOOBJECT 


LIST 
*“NOPRINT 


*“NOOBJECT 
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Table 10-2. Summary of the Effects of Controls on Other Controls (Cont’d.) 


Control 
Used 


*“NOOBJECT 


*OPTIMIZE(n) 
*PRINT(file) 


*NOPRINT 


SMALL 
SUBTITLE(’ subtitle’) 


*SYMBOLSPACE(n) 


*TITLE( title’) 


*TYPE 


*XREF 


Control(s) 
Affected or 


Overridden by It Affect It 


*OBJECT (file) 
INTERRUPT( proc [,...]) 
*DEBUG 
*TYPE 

CHECK 

CODE 


*NOOBJECT 


CODE 
*NOEXTENSIONS 
NOLIST 

EJECT 

TITLE( title’) 
SUBTITLE(’ subtitle’) 
PRINT(source.LST) 


*PRINT (file) 
*PRINT(source.LST) 
CODE 

EJECT 
*NOERRORPRINT 
*NOEXTENSIONS 
NOLIST 

TITLE( title’) 
SUBTITLE(’ subtitle’) 
XREF 


COMPACT, LARGE 


NOLIST 
EJECT 
PRINT(file) 


NOLIST 
PRINT(file) 


*NOTYPE *OBJECT(file) 


*NOXREF *PRINT(file) 


*Primary control (ali others are general). 


10.2 Using Controls 


Control(s) that 


Control(s) that 
Override It 


*OBJECT(file) 


*NOPRINT 


*PRINT(file) 
*PRINT(source.LST) 


*NOOBJECT 
*NOPRINT 


*NOPRINT 


*NOOBJECT 
*NOTYPE 


*NOXREF 
*NOPRINT 


Controls to the compiler govern the format, processing, and content of both the input 
source file(s) and the output file(s). Certain controls in their default forms override 
other controls that are explicitly stated. This section describes the use of controls 
according to the areas they govern, and suggests which controls should be used during 
specific stages of program development. 


In the following sections, an asterisk (*) denotes a primary control (or control pair). 
All other controls are general controls. 


10.2.1 Listing Device or File Selection 


The following controls govern the selection of the device or file to receive compiler 
listings and error/warning messages: 


*PRINT[Cfile)]|/NOPRINT 
*ERRORPRINT[Cfile)]/NOERRORPRINT 
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Use the PRINT control to select the device or file to receive a// printed output. Under 
NOPRINT, only error messages will be output to either the console or the ERROR- 
PRINT file, which you select with the ERRORPRINT control. 


The NOPRINT control overrides all of the listing format controls described in 10.2.2, 
since it governs all printed output. You can, however, select a different file or device 
to receive error messages. Even if the NOPRINT control is active, error messages 
will always appear somewhere—cither in a different file specified in an ERROR- 
PRINT control, or at the console if the ERRORPRINT control is not specified (or 
if NOERRORPRINT is specified). 


To generate a listing that includes error messages and the complete (or partial) source 
listing (as governed by format controls discussed below), use the PRINT control to 
specify the listing file, or allow the default PRINT control to send the listing to 
source.LST. If you select an ERRORPRINT file, error messages will appear twice: 
once in the ERRORPRINT file, and once in the listing file governed by the PRINT 
control. 


10.2.2 Controlling Listing Format and Content 


If PRINT is active, the following controls govern the format and content of printed 
output. The default value of a control pair is listed first: 


NOCODE/CODE 

EJECT 
*EXTENSITONS/NOEXTENSIONS 
LIST/NOLIST 
SUBTITLE C ‘ subtitle’ ) 
*TITLEC ’ title’ ) 
*NOXREF/XREF 

COND/NOCOND 


The default values allow listing of the source program without the approximate 
assembly code listing (NOCODE), without the identifier cross-reference (NOXREF), 
and without any extension warning messages (EXTENSIONS). 


These default values assume the general case. If you need the approximate assembly 
code listing of portions of the source file, use the CODE control. If you need to 
suppress certain portions of the source listing, use NOLIST. Note that the NOLIST 
control does not override the CODE control. 


Under the default EXTENSIONS, extension warning messages are not issued (..e., 
Intel extensions to standard Pascal are accepted without any warnings). If you specify 
NOEXTENSIONS, extension warning messages will occur if the compiler detects 
an Intel extension to standard Pascal. These warnings are directed to the file governed 
by PRINT and ERRORPRINT, and they do not stop the compilation process. 
Deviations that are not supported by Pascal-86 generate real errors. Control lines in 
the source file (after the initial set of primary controls) are considered Intel exten- 
sions to standard Pascal; under NOEXTENSIONS, they cause extension warnings. 


The XREF control directs the compiler to produce a symbol and identifier cross- 
reference, as described in 11.1.5 and in 10.3. NOXREF (the default) suppresses this 
action, and NOPRINT overrides XREF. 


Although paging is automatic (every 60 lines), you can force a page eject on any line 
by using the EJECT control. An EJECT in a control line is ignored if the control line 
occurs in an area governed by the NOLIST control. TITLE and SUBTITLE controls 
specify titles and subtitles in the listing. If NOLIST is in effect, the subtitle specified 
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is saved until listing resumes with the LIST control. All of these controls are ignored 
if NOPRINT is active. 


Conditional compilation allows two listing options: COND and NOCOND. COND 
specifies that any skipped source code will be listed (without statement or level 
numbers) and NOCOND specifies that skipped text will not be listed. 


10.2.3 Source Selection and Processing 


The following controls govern the selection and processing of source files. The default 
value of each pair is listed first. 


*EXTENSITONS/NOEXTENSIONS 
INCLUDE Cfile) 


Pascal-86 allows only one primary source file, but other source files may be included 
in the compilation by specifying them in INCLUDE controls. For instance, you can 
save the PUBLIC sections common to several modules in a separate source file, and 
you can INCLUDE this file whenever the PUBLIC sections it contains are needed 
by the modules being compiled. 


The INCLUDE control must be the rightmost (last) control on a source control line. 
The compiler issues a nonfatal error message when controls are placed to the right of 
the INCLUDE control. 


The EXTENSIONS control (default value) allows Intel extensions to standard Pascal 
to pass through compilation without generating warning messages. NOEXTEN- 
SIONS directs the compiler to check for these extensions and to issue warnings. Use 
NOEXTENSIONS for programs that you want to conform to standard Pascal. 


10.2.4 Conditional Compilation 


The following controls pertain to conditional compilation, a process that allows the 
compiler to skip selected sections of the source file if specified conditions are not met. 
Likewise, conditional compilation can be used to select various compiler controls by 
testing specified conditions in the source code. The default value of each control pair 
is listed first. 


TF/ELSEITF/ELSE/ENDIF 
RESET S67 
COND/NOCOND 


IF, ELSEIF, ELSE, and ENDIF are general controls that enable the actual condi- 
tional compilation process. An IF control and an ENDIF control delimit an IF 
element. An IF element has several different forms; the most complete form includes 
one or more ELSEIFs, followed by an optional ELSE. The operands in an IF element 
are not type-checked; they must be either a byte constant or predefined in a RESET / 
SET control. 


RESET and SET are general controls that determine the value of various switch 
assignments that can be used in a limited way to form conditions. These conditions 
are then tested by the IF and ELSEIF controls to determine the value of the least 
significant bit. Based on the results of this test, the compiler determines which sections 
of code should be compiled. The value of the switch assignment may be any whole 
number constant from 0 to 255. SET establishes the value; RESET restores the value 
to 0. 
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COND/NOCOND determines whether text skipped during conditional compilation 
will appear in the listing. The COND control specifies that any skipped text will be 
listed (without statement or level numbers). A COND control cannot override a 
NOLIST or LIST control. Also note that a COND control is not processed if it is in 
a portion of skipped text. The NOCOND control specifies that skipped text will not 
be listed. 


Conditional compilation has many useful applications. For example, conditional 
compilation can be used when porting a program to different architectures, or when 
a program contains several features that are not required for each implementation. 
Rather than writing a separate program for each case, you can write one program 
that uses conditional compilation to select the necessary sections of code for each 
application. 


10.2.5 Object Content and Program Checkout 


The following controls govern the selection and content of the object module, and 
implement program checking. The default value of a control pair is listed first. 


*OBJECT(Cfile) /NOOBJECT 
*NODEBUG/DEBUG 

TTY PES NOT Y PE 
NOCHECK/CHECK 


The OBJECT control selects a file to receive the object module. The default file has 
the same root name as the source file, with the extension OBJ (i.e., if PROGI.SRC 
is the source file, PROGI.OBJ becomes the object file). NOOBJECT prevents the 
generation of an object module and directs the compiler to perform only a quick 
syntax and semantic check of the source file. It also inhibits the execution of the 
OBJECT phase, overriding CODE and CHECK. 


The DEBUG control generates debug records in the object module that are used by 
symbolic debuggers such as PSCOPE, DEBUG-86, and the ICE-86 emulator. The 
default value NODEBUG suppresses the generation of debug records. NOOBJECT 
overrides DEBUG. The DEBUG control generates debug records and does not affect 
any program checkout features. 


The TYPE control (default value) generates type records in the object module that 
are used for type checking by the linker. TYPE is the default, because type checking 
is one of the advantages of using Pascal. Type records provide the mechanism for 
enforcing type compatibility between separately-compiled modules. TYPE informa- 
tion is also used by PSCOPE to display or modify memory variables. The NOTYPE 
control suppresses the generation of type records. NOOBJECT overrides TYPE. 


The CHECK control directs the compiler to check for out-of-range assignments, out- 
of-bounds array subscripts, stack overflow, and integer overflow. If possible, viola- 
tions are checked at compile time, but some run-time checking may be required. 
NOCHECK suppresses all checking activity. NOOBJECT overrides the compile-time 
checking performed by CHECK. 
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10.2.6 Program Optimization and Run-Time Environment 


The following controls optimize code and memory size requirements and affect the 
run-time environment of a particular program. The default value of the control is 
listed first. 


*OPTIMIZE(n) 
LARGE/COMPACT/SMALL 
INTERRUPT Cproc[=n]f,...]) 


The OPTIMIZE control allows you to specify the level of optimization you want the 
compiler to perform when it generates object code. Two optimization levels are 
provided: OPTIMIZE(1) (the default), and OPTIMIZE(0). OPTIMIZE(0) performs 
more limited optimization and is recommended when debugging programs with 
PSCOPE or DEBUG-86. 


The LARGE, COMPACT, and SMALL controls determine the memory addressing 
techniques of a given object module. If you are unsure of the memory requirements 
of your program, LARGE (the default) is recommended because it directs the compi- 
ler to make no special assumptions. You can improve code efficiency by using the 
smallest control possible, given your program’s specific run-time memory require- 
ments. Note that every module in a program must be compiled with the same control. 
(Appendix I outlines extensions to these controls.) 


The INTERRUPT control enables you to compile specific procedures as interrupt 
procedures. Dynamic interrupt number assignments (set by the SETINTERRUPT 
procedure) within the source program override the assignments made in the INTER- 
RUPT control. If an interrupt occurs during run time, and is associated by number 
with an interrupt procedure, the interrupt procedure gains control. (Interrupt handling 
is described in detail in Appendix K.) 


10.2.7 Use of Controls in Stages of Development 


When you are compiling a program for the first time, use the default control settings 
with the following exceptions: 


« Use CHECK, OPTIMIZE(0), and DEBUG for program checkout; then use 
PSCOPE, DEBUG-86, or ICE-86A for symbolic program debugging. 


¢ Use XREF to generate a symbol and identifier cross-reference to aid your debug- 
ging and maintenance efforts. 


Definitions of PUBLIC procedures and functions (needed for an interface specifica- 
tion that is common to several modules) can be maintained in a separate file and 
included with the source file by using the INCLUDE control. (For information on 
interface specifications, see 4.2.3.) 


For quick compiling and error reporting, you can maximize compile speed by using 
default settings for all but one control; use NOPRINT to supress printed output. 
(Errors will be reported at the console, or use ERRORPRINT to redirect errors to a 
file.) 


When preparing programs to test with the ICE-86A or ICE-88 emulator, use the 
CODE control during compilation to list the pseudo-assembly instructions and 
addresses. The CODE control can help you recode certain portions in assembly 
language. 
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Use the NOLIST control to save time by not listing portions of the source code that 
are already debugged. To make your listing more readable, use EJECT, TITLE, and 
SUBTITLE. You can direct the final listing to a specific output file using the PRINT 
control, and direct the final object module to a specific output file using the OBJECT 
control. 


To enforce compatibility with the Pascal standard, use the NOEXTENSIONS control 
early in program development to generate warning messages whenever the compiler 
encounters an Intel extension to standard Pascal. You can also use the CODE control 
to help recode non-standard areas in assembly language. 


10.3 Descriptions of Individual Controls 


NOTE 


Sample invocation lines for most compiler controls are provided on a foldout 
page in your specific operating-system appendix. 
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10.3.1 CHECK/NOCHECK 


Checks for invalid references, overflow, and out-of-range assignments and subscripts 
during compilation or at run time. 


Syntax 


CHECK 
NOCHECK 


Abbreviation 


CH/NOCH 


Default 


NOCHECK 


Type 


General 


Description 


The CHECK control provides a way to check for certain violations during compila- 
tion and at run time. The compiled code checks for the following: 


e Array subscripts out of bounds 
¢ Stack overflow 
¢ Overflow in integer computations 


¢ QOut-of-range assignments 


Example 
$CHECK 


In the above control line, the CHECK (abbreviated CH) control causes the subse- 
quent code to implement checking. 


NOTE 


Violations detected at run-time cause the execution of an error handler. 
Overflow in integer computations generates an Interrupt 4, which in turn 
invokes the trap handler in effect at the time of the interrupt. Appendix K 
provides information about run-time support and interrupts. 
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10.3.2 CODE/NOCODE 


Allows or prevents the listing of approximate assembly code. 


Syntax 


CODE 
NOCQODE 


Abbreviation 


CO/NOCO 


Default 


NOCQODE 


Type 


General 


Description 


The CODE control directs the compiler to produce a listing of the approximate 
assembly code for the generated object code (in a form that resembles 8086 assembly 
language). This listing occurs only for portions of the source code where the CODE 
control is active—it stops when a NOCODE is encountered. No code listing is gener- 
ated if the NOOBJECT control is active. The approximate assembly code listing is 
appended to the source listing in the listing file created by the PRINT control (see 
PRINT/NOPRINT). 


The NOCODE control prevents the listing of the approximate assembly code. The 
default control setting (if you specify neither control) is NOCODE. 


Example 
$CQODE 


The CODE control in this control line lists the approximate assembly code for the 
object code and appends the listing to the source listing. 


$NOCODE 
The NOCODE control in this control line turns off the action of the CODE control. 


NOTE 


The CODE control cannot create printed output if the NOPRINT control is 
in effect. Section 11.1.5 gives a sample listing of approximate assembly code. 
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10.3.3 COMPACT 


Specifies memory addressing techiniques of a program under compilation. 


Syntax 


1 COMPACTJ[C-CONST IN DATA-)] 
(-CONST IN CODE-) 


2. COMPACT ({[subsystem-id]|[submodel]JEXPORTS public-listt; EXPORTS public list}...) 


= ; HAS module-list 
3. COMPACT (soem [submode!| HAS module-list | ; EXPORTS  public-list | -) 


Abbreviation 


CP 


Default 


LARGE (see 10.3.12) 


Type 


General 


Description 


The COMPACT control directs the compiler to perform certain memory addressing 
optimizations that help reduce the amount of code produced. If you do not need to 
optimize your code size, or if you are not sure that your program meets the 
COMPACT memory restrictions, simply use the default LARGE control. (For more 
advanced methods of memory optimization, see Appendix I.) 


This section discusses the COMPACT control in its simplest form (see (1) above). 
The syntax in (2) and (3) applies only to the extended controls, which are discussed 
in Appendix I. Also see Appendix I for placement of these controls. 


Modules compiled with the COMPACT control have four sections: code, constant, 
data, and stack (see 11.2). When these modules are linked, similar sections from each 
module are combined to form segments. A COMPACT program has three segments: 
code, data, and stack. 


In the default COMPACT case (—CONST IN DATA-—), the code sections from 
all modules are allocated space in one segment, which is addressed relative to the CS 
register. All constant and data sections (excluding dynamic variables) are combined 
in a second segment, which is addressed relative to the DS register. The stack, 
containing parameters and local variables, is addressed relative to SS. 


If (—CONST IN CODE—) is specified, the code and constant sections from all the 
modules are allocated space within one segment, which is addressed relative to the 
CS register. The data sections (excluding dynamic variables) are combined in a second 
segment, which is addressed relative to the DS register. The stack is addressed relative 
to SS. 
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The maximum size, each, of the code segment (including constants if —CONST IN 
CODE—), the data segment (including constants if —CONST IN DATA—), and 
the stack segment, is 64K. 


Dynamic variables are allocated on the heap, which is outside of the three segments 
discussed above, and are addressed with 32-bit pointers. The maximum storage for 
dynamic variables is one megabyte. 


References to any location require only a 16-bit offset, using these segment addresses. 


Since the code, data, and stack segments are fully defined by the time the program 
is loaded, the addresses in the CS, DS, and SS registers are never changed. 
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10.3.4 COND/NOCOND 


These controls determine whether text skipped during compilation will appear in the 
listing. 


Syntax 


COND 
NOCOND 


Abbreviation 


none 


Default 


COND 


Type 


General 


Description 


The COND control specifies that any skipped text will be listed (without statement 
numbers or level numbers). Note that a COND control cannot override a NOLIST 
or NOPRINT control. Also note that a COND control is not processed if it is in a 
portion of skipped text. 


The NOCOND control specifies that skipped text will not be listed. However, controls 


that delimit the skipped text are listed, indicating that text has been skipped. Again, 
note that a NOCOND control is not processed if it is in a portion of skipped text. 
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10.3.5 DEBUG/NODEBUG 


Generates debug records in the object module. 


Syntax 


DEBUG 
NODEBUG 


Abbreviation 


DB/NODB 


Default 


NODEBUG 


Type 


Primary 


Description 

The DEBUG control generates debug records which contain the name and relative 
address of each symbol whose address or stack frame offset is known by the compiler, 
and the statement number and relative address of each source statement. The DEBUG 
control generates debug records in the object module—-it does not imply the CHECK 
control checkout features. 


The default setting, NODEBUG, prevents the generation of these records. 


Example 
$DEBUG 
The DEBUG control in this control line generates debug records in the object module. 


NOTE 
The DEBUG control is ignored if the NOOBJECT control is in effect. 
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10.3.6 EJECT 


Forces the start of a new page of printed output. 


Syntax 


EJECT 


Abbreviation 


EJ 


Default 


paging is automatic 


Type 


General 


Description 
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The EJECT control terminates the printing of the current page and starts a new 
page. The control line containing the EJECT control is the last line printed on the 


old page. 


If you do not use the EJECT control, a page eject will occur automatically after every 


60 lines. 


Example 


S$EJECT 


The EJECT control in this control line forces the start of a new page, after this 


control line is printed. 


NOTE 


The EJECT control is ignored if the NOLIST or NOPRINT controls are in 


effect. 
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10.3.7 ERRORPRINT /NOERRORPRINT 


Copies all compiler-generated error messages to the specified file. 


Syntax 


ERRORPRINT{C file) | 
NOERRORPRINT 


Abbreviation 


EP/NOEP 


Default 


ERRORPRINTC:CO:) 


Type 


Primary 


Description 


The ERRORPRINT control with the optional file argument directs all compile-time 
error messages to both the file specified and the listing file (file specified in a PRINT 
control, or source.LST by default), if the listing file is not suppressed by NOPRINT. 
If the listing file is suppressed by the NOPRINT control, errors appear only in the 
file specified. You must supply a legal pathname for file or an error will occur. 


The ERRORPRINT control without the file argument (i.e., the default setting 
ERRORPRINT) directs all compile-time error messages to the console (:CO:) and 
the listing file, if the listing file is not suppressed by NOPRINT. In other words, the 
default argument for file in an ERRORPRINT control is :CO: for the console. 


The NOERRORPRINT control directs all compile-time error messages to the /isting 
file only, i.e., the file specified in a PRINT control; or source.LST, the default listing 
file (see the PRINT control). If the listing file is suppressed by NOPRINT, the 
NOERRORPRINT control is ignored, and all compile-time error messages appear 
at the console. 


If the maximum number of open files allowed by the system is allocated, and the 
ERRORPRINT control specifies a disk file, then the compiler will close the 
ERRORPRINT file. If an additional file needs to be opened, and this occurs, the 
ERRORPRINT disk file will no longer be updated and a message will be printed on 
the last line of that file. NOERRORPRINT is then in effect for the duration of the 
compiler. 
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Example 
$NOERRORPRINT 


The NOERRORPRINT control in this control line sends error messages to the listing 
file only, or to the console if the listing file is suppressed by NOPRINT. 


NOTE 


Even if you uue NOERRORPRINT and NOPRINT, error messages still 
appear at the console. Without NOPRINT, NOERRORPRINT sends error 
messages only to the listing file. 
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10.3.8 EXTENSIONS/NOEXTENSIONS 


Allows Intel extensions to standard Pascal, or issues an extension warning whenever 
the source program contains any nonstandard Pascal feature. 


Syntax 


EXTENSIONS 
NOEXTENSTONS 


Abbreviation 


ET/NOET 


Default 


EXTENSIONS 


Type 


Primary 


Description 


The NOEXTENSIONS control directs the compiler to check for any Pascal-86 
features in the source program that are Intel extensions to standard Pascal as defined 
in the ANSI /ITEEE770X3.97—1983. Whenever the compiler finds such a feature, it 
issues an extension warning message as an error message, but it continues to compile 
the program and produce the object module. The compiler also issues an extension 
warning for any control line that occurs after the initial set of primary controls. 


The EXTENSIONS control allows legitimate Intel extensions to be processed without 
warning messages. These controls do not adversely affect the compilation. 


Example 
$NOEXTENSIONS 


The NOEXTENSIONS control in this control line causes extension warnings to occur 
for any Intel extension to standard Pascal. 
NOTE 


Extension warning messages are treated as compile-time error messages, and 
are sent to the appropriate file or to the console depending on the setting of 
the ERRORPRINT and NOPRINT controls (see ERRORPRINT). 
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10.3.9 IF/ELSEIF /ELSE/ENDIF 


These controls allow the actual conditional compilation capability. They cannot be 
used to invoke the compiler. Each control must be placed on a separate control line, 
as explained in 10.1. 


Syntax 
1. The simplest form of an IF element is as follows: 


$ IF condition¢cr> 
text 
$ ENDIF 


where 


condition <cr > is a limited form of Pascal expression in which the only 
operators allowed are OR, NOT, AND, <, S, =, =, 
<>, and >. The only operands allowed are switches 
and whole number constants from 0 to 255. If the switch 
does not appear in a previously defined SET control, a 
value of false(0) is assumed. Parenthesized subexpres- 
sions are allowed. In these restrictions, condition is 
evaluated as defined by standard Pascal. Note that 


condition must be followed by a carriage return. 


text is text that is processed normally by the compiler if the 
least significant bit of the value of condition is a 1, and 
is text that is skipped if the least significant bit is a 0. 
text may contain a combination of source and compiler 
controls. Note that when the compiler skips text, compi- 
ler controls in that portion are not processed. 


2. The second form of an IF element contains an ELSE element: 


$ IF condition 
text] 

$ ELSE 

text2 

$ ENDIF 


In this construction, text? is processed normally if the least significant bit of the 
value of condition is a 1, and text2 is skipped. If the bit is a 0, text2 is processed 
normally and text? is skipped. 


An IF element may contain only one ELSE element. 


3. The most general form of IF element allows one or more optional ELSEIF 
elements before the ELSE element: 


$ IF condition! 

textT 

$ ELSEIF condition2 
text2 

$ ELSEIF condition3 
text3 


$ ELSEIF condition 
textn-1 
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$ELSE 
textn 
SENDIF 


ELSEIF and ELSE elements are optional. 


The conditions in an IF element are tested sequentially. As soon as a condition 
yields a value with | as its least significant bit, the corresponding text is processed 
normally. All other text referenced in the IF element is skipped. If none of the 
conditions yield a least significant bit of 1, text in the ELSE element is processed 
normally and all other text in the IF element is skipped. 


Abbreviation 


none 


Default 


not applicable 


Type 


General 


Description 


The IF/ELSEIF/ELSE/ENDIF controls enable conditional compilation by testing 
for conditions based on the value of switches. An IF control and an ENDIF control 
delimit an IF element. An IF element has several different forms; the most complete 
form includes one or more ELSEIFs, followed by an.optional ELSE. These operands 
are not type-checked, and they must be either a byte constant or predefined in a 
RESET/SET control. 


Primary controls may not be used in conditional compilation blocks. 


Example 


$IF $1 
traceMsgiCTRUE, newval); 
valctr:s=valctr + 1; 

SELSEIF S2 
TraceMsg2(TRUE, newval, oldval); 
Abort; 

$ELSE 
link(newval ) 

SENDIF 


Here, S1 and S2 are switches that control printing of information for the program- 
mer’s use. To print both newval and oldval at run-time, set S2 when the compiler is 


invoked. 


PASC86 pathname SET (S2) 
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10.3.10 INCLUDE 


Includes other source files as input to the compiler. 


Syntax 


INCLUDE Cfile) 


Abbreviation 


IC 


Default 


no included files 


Type 


General 


Description 


When the compiler encounters the INCLUDE control in the source file, it reads from 
the other source file named by file, until it reaches the end of the file. Then the 
compiler resumes reading the source lines that follow the INCLUDE control line in 
the original source file. 


Example 
$INCLUDECPUBLIC.SRC) 
Read source lines from the file PUBLIC.SRC. 


NOTE 


The INCLUDE control must be the rightmost control in a control line (or 
the only control in that line). 


The included file may itself contain INCLUDE controls, but the nesting of 
included files cannot exceed five (five included files). 


The compiler always forces an end-of-line after reading from an included 
file. 


Your file must be a valid pathname, or an error will occur. 
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10.3.11 INTERRUPT 


Designates procedures as interrupt procedures, and generates the interrupt vector. 


Syntax 


INTERRUPT C procedure [=number][ , procedure[ = number]}.. ) 


Abbreviation 


IT 


Default 


no interrupt procedures 


Type 


General 


Description 


The INTERRUPT control allows you to specify procedures to be compiled as 8086 
interrupt procedures, and to generate an interrupt vector. 


The procedure you supply is the identifier for the procedure to be compiled as an 
interrupt procedure. You can optionally specify an equal sign and a number for each 
procedure, and you can specify multiple procedure, as well as multiple INTER- 
RUPT controls. The number is the number of the interrupt to be associated with the 
specified procedure; this number must be in the range 0 to 255, or an error will occur. 
You can only specify one procedure for each number. 


When you include number, the compiler creates an interrupt vector consisting of a 
4-byte entry for the interrupt procedure. For interrupt number n, the entry for the 
interrupt procedure is located at absolute memory location n times four. 


Examples 
$INTERRUPTCINT1=1, INT22#2, INT3#=3) 


This control line specifies procedure INTI as an interrupt procedure for interrupt 1, 
at location 4; INT2 for interrupt 2, at location 8; and INT3 for interrupt 3, at 
location 12. 


NOTE 


The procedure specified must appear at the outer level of nesting (i.e., nested 
only in the program block), without any parameters. The procedure may not 
be passed as a procedural parameter. 


After the program is loaded, a procedure is executed whenever the 8086 
interrupt associated with the procedure occurs. Section K.1 provides more 
information about run-time interrupt processing, and section 8.9 describes 
the predefined interrupt control procedures. 
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If you use the SETINTERRUPT procedure within your program, at run 
time the SETINTERRUPT procedure’s interrupt number assignment will 
take precedence and override the INTERRUPT control assignment. The 
SETINTERRUPT procedure is described in 8.9.1. 
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10.3.12 LARGE 


Specifies memory addressing techniques of a program under compilation. 


Syntax 


I. LARGE J({C-CONST IN CODE-)] 
(-CONST IN DATA-) 


2. LARGE ([subsystem-id][submodel]JEXPQORTS public-list{; EXPQRTS _ public-list]...) 


; ; HAS module-list 
3. LARGE (somone [submodel] HAS module-list | ; EXPORTS publicist 1 . 


Abbreviation 


LA 


Default 


LARGE 


Type 


General 


Description 


The LARGE control provides the simplest form of memory addressing. Unlike 
SMALL and COMPACT (10.3.3 and 10.3.19), it does not put strict limits on the 
amount of code, constant, data, and stack space available within a program. It also 
does not optimize a program’s storage space and the data references between program 
modules. If this optimization is required, see 10.3.3 and 10.3.19. (For more advanced 
methods of program optimization, see Appendix I.) 


This section discusses the LARGE control in its simplest form (see (1) above). The 
syntax in (2) and (3) applies only to the extended controls, which are discussed in 
Appendix I. Also see Appendix I for placement of these controls. 


Modules compiled with the LARGE control have four sections: code, constant, data, 
and stack (see 11.2). In the default LARGE case (—CONST IN CODE—.), the 
code and constant sections from each module are not combined; they make up their 
own segment. Consequently, the maximum size of the code segment for each module 
is 64K, making the total storage available for all code segments in the program greater 
than 64K. 


The data sections (excluding dynamic variables) from each module are also not 
combined, and make up their own segments. These segments include the constant 
sections if (—CONST IN DATA—) is specified. A module that requires more than 
64K for data storage may be placed in more than one data segment. 


At any moment during program execution, one code segment and one data segment 


are “current.” These segments are paired so that the current code and data segments 
are always from the same module. During program execution, the segment addresses 
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for the current code and data segments are kept in the CS and DS registers, respec- 
tively. They are updated whenever a public procedure is activated, as new code and 
data segments may have to be loaded to access public information. 


The stack sections from all modules, containing parameters and local variables, are 
combined in one segment, which is addressed relative to the SS register. The maximum 
size of the stack is 64K. 


Dynamic variables are allocated on the heap and are addressed with 32-bit pointers. 
The maximum storage for dynamic variables is one megabyte. 
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10.3.13 LIST/NOLIST 


Allows or prevents the listing of source lines. 


Syntax 


LIST 
NOLIST 


Abbreviation 


CIS NOE 


Default 


fag ie A 


Type 


General 


Description 


The LIST control directs the compiler to resume (or begin) listing the program with 
the next source line read. The NOLIST control directs the compiler to stop listing 
the program until the next occurrence, if any, of a LIST control. If you specify neither, 
the compiler will continue to create a listing of the program (the default is LIST). 


Example 
$LIST 
This control line starts the listing of source lines with the next line read. 


NOTE 


When you specify neither, or when LIST is in effect, all lines from the source 
file (or from an included file), including control lines, are listed. When 
NOLIST is in effect, only source lines associated with error messages are 
listed. 

Note that the LIST control cannot create a listing if the NOPRINT control 
is in effect. 


The NOLIST control does not override the CODE control. 
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10.3.14 MOD86/MOD186 


MOD86 and MOD186 are primarily controls that direct the compiler to generate 
optimized code for the 8086 and 80186 processors, respectively. 


Syntax 


MOD86 
MOD186 


Abbreviation 


none 


Default 


MOD86 


Type 


Primary 


Description 


MOD86 specifies that the object module includes instructions for execution on the 
8086 processor. 


The MOD 186 control allows the compiler to generate an extended set of instructions 
in the object module for use on the 80186 processor. 


10-28 


Pascal-86 User’s Guide Compiler Controls 


10.3.15 OBJECT /NOOBJECT 


Specifies a filename for the object module, or prevents the creation of an object 
module. 


Syntax 


OBJECT[C file) ] 
NOOBJECT 


Abbreviation 


OB/NOOJ 


Default 


OBJECT (Csource.0BJ) 


Type 


Primary 


Description 


The OBJECT control directs the compiler to produce an object module. You can 
optionally specify a file for this object module by providing a legal pathname (filename 
with optional device specifier) for file. 


If you do not specify a file, or if you do not use the OBJECT control, the compiler 
will still produce the object module and direct it to the same disk or device as the 
source file, using the filename source.OBJ (where source is the root name of the 
source file). 

The NOOBJECT control prevents the creation of an object module, and directs the 
compiler to perform only a quick syntax and semantic check of the source file. It also 


inhibits the execution of the OBJECT phase, overriding the CODE and CHECK 
controls. 


Example 
S$OBJECTCTEMP.OBJ) 
This control line directs the compiler to put the object module in the file TEMP.OBJ. 


NOTE 
Section 11.2 provides details on the object module sections. 
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10.3.16 OPTIMIZE 


Governs the level of optimization performed in generating object code. 


Syntax 


OPTIMIZEC0) 
OPTIMIZEC(1) 


Abbreviation 


OT 


Default 


OPTIMIZEC(1) 


Type 


Primary 


Description 


The OPTIMIZE(0) control directs the compiler to turn off object code optimization 
between program lines. This limited optimization is required for programs being 
debugged under PSCOPE (the high-level language debugger) and is recommended 
when using DEBUG-86. 


The OPTIMIZE(1) control directs the compiler to perform code optimizations both 
within and between program statements. 


Example 
$oTco) 


The OPTIMIZE(0) (abbreviated OT(0)) control in this control line turns off code 
optimization between program statements. 


NOTE 


The OPTIMIZE control will not produce code if the NOOBJECT control is 
active. 
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10.3.17 PRINT /NOPRINT 


Allows or prevents printed output, or selects the device or file to receive printed output. 


Syntax 


PRINT[Cfile) | 
NOPRINT 


Abbreviation 


PR/NOPR 


Default 


PRINT Csource.LST) 


Type 


Primary 


Description 


The PRINT control directs the compiler to produce printed output (listings), and the 
NOPRINT control stops the compiler from producing printed output. If you specify 
neither, the compiler will produce listings and put them in a file that has the same 
name as the source input file, but with an LST extension. This new LST file will be 
created on the same device used for the source file. For example, if your source file 
is named SOURCE and you use neither control, or use only the simple PRINT control 
(the default), the compiler will create the listing as SOURCE.LST. 


If you specify a PRINT control with a file in parentheses, the compiler will put the 
listings in the file or device named by file, which must be a legal pathname for a file 
or device. 


Example 
$PRINTC:LP:) 
This control line sends printed output to the line printer. 


NOTE 


If you specify the NOPRINT control, the compiler will not produce listings— 
even if you specify other controls such as LIST or CODE. When the 
NOPRINT control is in effect, the compiler will not produce any printed 
output except error messages. 
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10.3.18 RESET/SET 


RESET and SET control the value of switches. These values are used as test condi- 
tions during conditional compilation. 


Syntax 


The RESET control sets the value of each switch to false (0), and has the following 
form: 


RESET (switch list) 


where 


switch list contains one or more switch names that have already been 
used in SET controls. 


Abbreviation 


none 


Default 


RESET (0) 


Type 


General 


Syntax 
The simplest form of the SET control is as follows: 
SET (switch assignment list) 


where 


switch assignment list consists of one or more switch assignments separated by 
commas. 


A switch assignment has the following form: 
switch 
or 


switch = value 
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where 
switch 


value 


Example 


Compiler Controls 


is a name formed according to standard Pascal rules for 
declaring identifiers. Note that a switch name applies 
only at the compiler level; therefore, you may declare 
an identifier of the same name in the program. 


is a whole number constant ranging from 0 to 255. This 
value is assigned to the switch. If the value and the equal 
sign (=) are omitted from the switch assignment, the 
default value true (OFFH) is assigned to the switch. 


This example of a SET control line sets the switch TEST to true (OFFH) and the 
switch ITERATION to 3. Declaring switches is optional. 


$SETCTEST, 


ITERATION = 3) 
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10.3.19 SMALL 


Specifies the memory addressing techniques of the program under compilation. 


Syntax 


1. SMALL (ete IN DATA-)] 
(-CONST IN CODE-) 


2. SMALL ([subsystem-id][submodel]EXPORTS public-listi; EXPORTS public-list]...) 


‘ ; HAS module-list 
3. SMALL bsystem- - ; 
(~ system-id [submodel] HAS module-list { EXPORTS public-list } -) 


Abbreviation 


SM 


Default 


LARGE (see 10.3.12) 


Type 


General 


Description 


The SMALL control directs the compiler to perform certain memory addressing 
optimizations that help reduce the amount of code produced. If you do not need to 
optimize your code size, or if you are not sure that your program meets the SMALL 
memory restrictions, simply use the default LARGE control. (For more advanced 
methods of program optimization, see Appendix I.) 


This section discusses the SMALL control in its simplest form (see (1) above). The 
syntax in (2) and (3) applies only to the extended controls, which are discussed in 
Appendix I. Also see Appendix I for placement of these controls. 


Modules compiled with the SMALL control have four sections, code, constant, data, 
and stack (see 11.2). When these modules are linked, similar sections from each 
module are combined to form two segments. A SMALL module has two segments: 
code and data. 


In the default SMALL case (—CONST IN DATA—), the code sections from all 
the modules are allocated space within one segment, which is addressed relative to 
the CS register. All constant, data, and stack sections, as well as the heap, are 
combined in a second segment. This second segment is addressed relative to the DS 
register, with an identical copy in the SS register. 


If (—-CONST IN CODE—) is specified, the code and constant sections from all the 
modules are allocated space in one segment, which is addressed relative to the CS 
register. The data and stack sections are combined in a second segment. This segment 
is addressed relative to the DS register, with an identical copy in the SS register. 
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References to any location require only a 16-bit offset, using these segment addresses. 
In either case, (—CONST IN DATA—) or (—-CONST IN CODE—-), the maximum 
size of each segment is 64K. Since the two segments are fully defined by the time the 
program is loaded, the addresses in the CS, DS, and SS registers are never updated. 


Dynamic variables are allocated on the heap. Note that SMALL (—CONST IN 
DATA—) uses a different heap mechanism than SMALL (—CONST IN 
CODE—), COMPACT, and LARGE. Since this SMALL heap is stored with the 
constant, data, and stack sections, dynamic variables are addressed with only 16-bit 
pointers. SMALL (—CONST IN CODE—) uses the same heap mechanism as 
COMPACT and LARGE; consequently, 32-bit pointers are required. 
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10.3.20 SUBTITLE 


Puts a subtitle on each page of printed output. 


Syntax 


SUBTITLE(C’ subtitle’ ) 


Abbreviation 


ST 


Default 


no subtitle 


Type 


General 


Description 


Pascal-86 User’s Guide 


The SUBTITLE control prints a subtitle on every page of printed output. To specify 
a subtitle, supply a sequence of printable ASCII characters (a string) for subtitle, 


enclosed within apostrophes. 


The subtitle is placed on the subtitle line of each page of listed output, and is truncated 
on the right if necessary. The maximum length allowed for subtitle is 55 characters. 


When a SUBTITLE control appears before the first non-control line in the source 
file, it puts the subtitle on the first page and on all subsequent pages until another 
SUBTITLE control appears. A subsequent SUBTITLE control causes a page eject, 
and the new subtitle is put on the next page and on all subsequent pages until another 


SUBTITLE control appears. 


Examples 
$SUBTITLEC’INPUT ROUTINE’) 
(source lines) 


$SUBTITLEC’OUTPUT ROUTINE’) 


NOTE 


If the NOLIST control is in effect, the subtitle is saved and appears again as 


a subtitle when the listing resumes. 
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10.3.21 SYMBOLSPACE 


Specifies the amount of memory allocated for the static symbol area. 


Syntax 


SYMBOLSPACE(n) 


Abbreviation 


SS(n) 


Default 


SYMBOLSPACEC16) 


Type 


Primary 


Description 


The SYMBOLSPACE control specifies the amount of memory (in kilobytes) that is 
allocated for the compiler’s static (or ‘internal’) symbol table. Values for n can range 
from 5 to 64, but a warning will be issued if the request exceeds the amount of avail- 
able memory. 


Note that this is not a measure of the total amount of memory to be used by the 
compiler. In systems with up to 192K (128K for the system plus a maximum of 64K 
for the static symbol table), increasing the value of n will decrease the amount of 
memory available for the dynamic symbol table. Adding more memory to the system 
will not increase the allocation for the static symbol table, but will be used to keep 
the dynamic symbol table from spilling to disk. 


The static symbol area cannot spill to disk (only the dynamic table has this capabil- 
ity). If the static table runs out of memory, an error message will be generated and 
compilation will be aborted. The dictionary summary at the end of the listing will 
help determine how to adjust the SS(n) for your particular program if necessary. 
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10.3.22 TITLE 


Prints a title on each page of printed output. 


Syntax 


TITLE ( ‘title’ ) 


Abbreviation 


TT 


Default 


no title 


Type 


Primary 


Description 
The TITLE control prints a title on every page of printed output. To specify a title, 
supply a sequence of printable ASCII characters (a string) for title, enclosed within 
apostrophes. 


The title is placed on the title line of each page of listed output, truncated on the right 
if necessary. The maximum length allowed for title is 55 characters. 


Example 


$TITLEC’TEST PROGRAM 4%) 
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10.3.23 TYPE/NOTYPE 


Includes type records in the object module. 


Syntax 


TYPE 
NOTYPE 


Abbreviation 


TY/NOTY 


Default 


1¥ PE 


Type 


Primary 


Description 

The TYPE control directs the compiler to include type records in the object module. 
These records describe attributes of symbols used in the source program, and they 
are used later for type checking by the linker. Type records provide a mechanism for 
enforcing type compatibility between separately compiled modules. 


The NOTYPE control prevents the inclusion of type records in the object module. 


Examples 

$TYPE 

This control line directs the compiler to include type records in the object module. 
$NQTY 


The NOTY control in this control line directs the compiler to not include type records 
in TEMP.OBJ. 
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10.3.24 XREF/NOXREF 


Allows or prevents a cross-reference listing of source program identifiers. 


Syntax 


XREF 
NOXREF 


Abbreviation 


XR/NOXR 


Default 


NOXREF 


Type 


Primary 


Description 


The XREF control directs the compiler to produce a cross-reference listing of all 
identifiers and labels in the source program. The compiler prints an entry for each 
Pascal constant, type, variable, parameter, procedure, function, or label that occurs 
in the source program, in alphabetical order. The listing is appended to the listing 
file created by the PRINT control (see PRINT/NOPRINT). 


The NOXREF control prevents this cross-reference listing. The default setting is 
NOXREF. 


Example 

$XREF 

The XREF control in this control line produces a cross-reference listing of all identi- 
fiers, and appends the listing to the output file specified by the PRINT control (or 
its default listing file. SOURCE.LST). 


NOTE 


Section 11.1.4 provides an example of a cross-reference listing. 
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During the compilation process, the compiler produces a listing of the source program, 
and also an object module. The controls affecting the listing file and object file are 
described in Chapter 10. This chapter outlines the contents of both files. 


11.1 Program Listing 


Unless the NOPRINT control (described in 10.3.16) is active, the listing file is either 
the file specified in a PRINT control, or the default listing file (source. LST, where 
source is the name, without extension, of the source program file). 


The listing file starts with a “sign-on” preface, then proceeds with the source listing, 
including any semantic error messages. If the XREF primary control is active, a 
symbol and identifier cross-reference listing is appended to the source listing. If the 
CODE control is active, the program listing also includes a listing of the approximate 
assembly code for the source code. The program listing always ends with a compila- 
tion summary. 


Certain sections of the listing may not appear, depending on which controls are active. 
If NOPRINT is active, error messages are the only listing output produced. The 
error messages appear in the file specified in an ERRORPRINT control, or on the 
console if NOERRORPRINT or the default is in effect. You can use the NOLIST 
general control to isolate certain sections of the source code and not list them. 


By default, the COND control is active, specifying that any source code skipped during 
conditional compilation will appéar in the listing (without statement numbers or level 
numbers). A source listing produced while the NOCOND control is in effect does 
not provide a listing of the skipped source code. However, the controls that delimit 
the skipped source code are listed, indicating that code has been skipped. 


Paging occurs automatically during the source, cross-reference, and assembly code 
listing, but you can force a page eject in the source listing by using the EJECT control. 
Each page holds 60 lines, with 120 characters per line. 


Each page of the listing file has a numbered page header which identifies the compi- 
ler, the module and procedure being compiled, the date of the compilation, and 
(optionally) a title and subtitle you can provide with the TITLE and SUBTITLE 
controls. 


In the listing, the procedure and module names in the page header are truncated to 
24 characters, and the title and subtitle are truncated to 55 characters. If the proce- 
dure nesting exceeds 16 levels, the name that appears in the page header is the proce- 
dure at level 16. 


11.1.1 Listing Preface 


On the first page of the listing, below the header, the compiler prints a summary of 
the invocation line used to invoke the compiler, and the names of the source file and 
object file. If you specified the NOOBJECT control, no name is supplied for the 
object file. 


CHAPTER 11 


COMPILER OUTPUT 
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Next to the heading “Controls Specified”’, the compiler lists the controls you speci- 
fied in the invocation line. Figure 11-1 shows a sample listing preface. 


Source File: PROG1.SRC 
Object File: PROG1.0BJ 
Controls Specified: <¢none>. 


Figure 11-1. Sample Listing Preface 


11.1.2 Source Listing 


The section following the preface includes the source listing of the module being 
compiled, any errors detected during compilation, and an optional cross-reference 
listing of source program identifiers and symbols. Following the cross-reference listing 
is an optional listing of approximate assembly code. The source listing is described 
here, and the other descriptions follow. 


The source listing contains a line-for-line copy of the source file, with some additional 
information. Figure 11-2 shows a sample partial source listing. 


The leftmost column (under the heading STMT) contains the number of the first 
statement in the line. The compiler increments the statement number at every instance 
of a semicolon not contained within a parameter list, and every instance of a DO, 
THEN, ELSE, OTHERWISE, UNTIL, and an OF used in a CASE statement. The 
next column (under LINE) contains the ordinal position of the line in its source file. 
The next three columns (under NESTING) contain various measures of the nesting 
level (depth) of the first statement on the line. A source listing statement is not the 
same as a Statement as defined in Chapter 7, since headings, declarations, and defini- 
tions have statement numbers in the source listing. 


The first of these NESTING columns measures the procedure nesting depth of the 
first statement on the line. Statements and declarations at the module level are at 
level O. 


The second NESTING column measures the “block” nesting depth of the statement 
(BEGIN...END, REPEAT...UNTIL, and CASE...OF...END delimit Pascal “blocks” 
of statement nesting). This indicator always measures the depth for the first state- 
ment on the source line listed. 


In the third NESTING column, any source lines included through use of the 
INCLUDE control (described in 10.3.8) are marked with “=n”, where n is the nesting 
depth of the included line (n cannot be greater than 5). 


If a source line is too long to fit on one listing line, it is continued on subsequent lines 
and preceded by a dash (—). 


Except for the carriage return (CR), line feed (LF), and horizontal tab (HT), all 
nonprinting characters in the source are printed as #nn#, where nn is their 
hexadecimal value (see Appendix G). CR and LF are printed verbatim; HT sets tab 
stops every four columns. 
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STMT LINE NESTING SOURCE TEXT: PROS1.SRCE 
(x This program converts Fahrenheit temperatures to Celsius. It 
prompts the user to enter a Fahrenheit temperaturer either real or 
integers on tne console. The program computes and displays the equivalent 
Celsius temperature on the console until the user has no more input. *) 


1 6 0 0 program Fahrenh2itToCelsius(Input,/Jutput); 
2 § a 6 var CelsiusTemp-FanrenheitTemp : real; 
3 9 9 0 QuitCnar : char; 
4 11 9 O begin 
4 13.9 ~=«1 repeat 
4 15 0 2 writelns writeln; 
6 17 0 2 write(’Fahrenheit temperature is: “°); 
7 19 0 2 readln(FahrenheitTemp); 
5 21 0 2 CelsiusTemp := (€ FahrenheitTemp - 32.09 ) * € 5.9 / 9.5 ))e 
9 23 A oid write(’Celsius temperature is: "7 writeln(CelsiusTemp:5:1), 
11 25 0 2 writeln; 
12 27 0 e write(€’Another temperature input? :7); 
13 29 9 2 read(QuitChar)s; writeln; 
15 31 0 2 until not (QuitChar in C’Y’s"y%)) 
16 33. -J. ~2 end. (* FahrenheitToCelsius *) 


Summary Information: 


PROCEDURE OFFSET CODE SIZE DATA SIZE STACK SIZE 
FAHRENHEITTOCELSIUS OO70H O161H 3539 3C19H 250 JOE 140 
-CONST IN CODE- 0079H 1250 

Total O13°H 4780 9619H 250 O042H 660 


33 Lines Read. 
QO Errors Detected. 


Dictionary Summary: 
48KB Memory Available. 
6KB Memory Used (12%). 


OKB Disk Space Used. 
2K8 out of 16K8 Static Space Used (12%). 


Figure 11-2. Sample Partial Source Listing 


11.1.3 Error Messages 


If the compiler finds any errors during compilation, it reports the errors in the listing 
file, and also in the ERRORPRINT file if one was selected. If NOPRINT is active, 
the errors appear only in the ERRORPRINT file, or on the console if no ERROR- 
PRINT file was selected. 
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With the exception of syntactic and lexical messages, each message appears on a line 
by itself in the following form: 


*** *#severityn[ IN stmt Cfile,line)|: message 


The number n is a unique number for each message; all compiler error messages are 
described in Chapter 13. Stmt is the number of the statement, file is the name of the 
source module that contained the error, and /ine is the source line number. Stmt, file, 
and /ine do not appear in some error messages. 


There are several levels of severity: 


« EXTENSION messages, generated only when the NOEXTENSIONS control is 
active, show where your program deviates from. standard Pascal. Compilation 
continues, since Pascal-86 supports these features. 


¢ WARNING messages show areas of questionable quality in your programming 
style, but they do not stop compilation. Syntactic and lexical errors also fall into 
this category. 


¢ ERROR messages show severe errors that prevent the generation of an object 
module. 


¢ LIMIT EXCEEDED messages indicate that the compiler cannot generate an 
object module, and may not even continue with compilation. 


¢ FATAL ERROR messages indicate anomalies in the compiler itself, or in the 
environment, that make it impossible to proceed with the compilation. 


These severity levels are discussed in more detail in Chapter 13. 


Syntactic and lexical error messages which fall in the WARNING category are 
reported and corrected as follows: _ 


*F**WARNING, input: "error™ 
***was repaired to "repair" 


The error is the sequence of tokens read from the source input, and the repair is the 
sequence accepted by the parser or scanner. An unprintable illegal character appears 
in hexadecimal notation enclosed by pound (#) signs (e.g., #03# for the CNTL-C key 
combination). 


Scanner and parser error messages are always interleaved with the source listing, 
with each message appearing under the line or line segment that generated the error. 


The following are examples of error messages as they would appear in the listing file: 
If the source input line is: 
IF X*O\IF Yei1 THEN X:#X+1; 


then the message generated in the listing file would be: 


224 112 3 2 IF X=0\ 

oe WARNENG, i npwts” MEF x = ob 
oh Was fepaired ste hp toed: 

225 112 3 2 IF Y=14 
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Be WARN IEG 4. ten ee NI et, oe 
***was repaired to "THEN IF Y 
Se Vie - 3. 32 THEN Xi =X4#15 


u 
— 
- 
- 


11.1.4 Symbol and Identifier Cross-Reference Listing 


If you specify the XREF control, the compiler will generate a symbol and identifier 
cross-reference listing and append it to the source listing. 


The compiler prints an entry for each constant, type, variable, parameter, procedure, 
function, and label that appears in the source program. They appear in alphabetical 
order by name, where name is the identifier or label number used in the source 
program. 


The Pascal built-in procedures and functions that are implemented in-line or by calls 
to non-standard procedures are not listed. These include: ABS, CAUSEINTER- 
RUPT, DISABLEINTERRUPTS, DISPOSE, ENABLEINTERRUPTS, 
EOF, EOLN, GET, GET8087ERRORS, INBYT, INWRD, LORD, 
MASK8087ERRORS, NEW, ODD, ORD, OUTBYT, OUTWRD, PACK, PAGE, 
PRED, PUT, READ, READLN, RESET, REWRITE, SETINTERRUPT, SQR, 
SQRT, SUCC, UNPACK, WRD, WRITE, WRITELN. 


Record field names do not appear in this listing, and are only referred to by the 
record variable used to access the record field. 


Each entry consists of the following information: 


name offset length [?] scope type kind IN nabor AT stmt: 
READ readref; WRITE writeref 


where 


name is the source identifier or label number for the entity. If this 
name is followed by an up-arrow ( t ), the entity is a dynamic 
variable. 


offset is the entity’s hexadecimal offset (only supplied for PUBLIC 
and local entities of any kind except LABEL, PROCE- 
DURE, FUNCTION, TYPE, or INTEGER CONSTANT). 
For CONSTANT, it is the offset of the constant from the 
start of the constant segment. For other kinds, it is the offset 
of the entity from the start of the data segment (if nabor is 
the name of the module) or stack frame (if nabor is the name 
of a procedure or function). 


length is the number of bytes of storage occupied by the entity. 


scope is PUBLIC, EXTERNAL, or nothing (to indicate a local 
entity). 


type is the TYPE type-defn as it appears in the source program 
(user-defined type identifiers are used wherever applicable); 
however, record types are denoted only by RECORD. This 
field is omitted if the entity's kind is LABEL, PROCE- 
DURE, or PROCEDURAL PARAMETER. 


kind is LABEL, CONSTANT, TYPE, VARIABLE, PROCE- 
DURE, FUNCTION, PARAMETER, VARIABLE 
PARAMETER, PROCEDURAL PARAMETER, 
FUNCTIONAL PARAMETER, MODULE, | or 
PROGRAM PARAMETER. 
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nabor is the entity’s “neighborhood”: the name of the module, 
procedure, or function that contains the entity (includes the 
name of the subsystem containing the entity, if appropriate). 


stmt is the number of the statement where the entity is defined. 
readref are two lists of statement numbers: one for read references to 
writeref the entity, and one for write references. 


A question mark (?) will appear to the left of a symbol’s attribute listing (see figure 
11-3) if there are no references to that symbol in the compilation. 


Figure | 1-3 shows a sample cross-reference listing. 


11.1.5 Listing of Approximate Assembly Code 


If the CODE general control is active (and NOPRINT and NOOBJECT are not 
active), the compiler lists the approximate assembly language code that is equivalent 
to the object code produced. This listing occurs after the cross-reference listing and 
appears in six columns of information: 


e Location counter (in hexadecimal notation) 

¢ Resultant binary code (in hexadecimal notation) 
¢ Label field 

* Opcode mnemonic 

¢ Symbolic arguments 


¢ Comment field 


ADONODE. . 
SOOLEAN. . 
BUILDTREE. 
CHAR 2. « 
DATAFILE . 


EXPRESSIONT 


FALSE. « 
FINDROOT . 
INFIX. « 
INTEGER. . 


R 


MAXNUMNODES. 


NODE . . 


E 


NODECHARACTER 


NODEINDEX. 
NOOEINDEX. 
NODEINDEX. 
NODEINDOEX. 
ONE. « « « 
OUTPUT . . 


POSTFIX 
PREFIX 
SUBSCR 
TEXT . 
TREE . 
TRUE . 


E 


ee 8 © @ © © © 8 we we ee 


Cross-Reference Listing 


Offset Length Attributes and References 


procedure in BUILDTREE at 154 read: 29 33. 


1 primitive types read: 14. 
procedure in TREETRAVERSAL at 134 read: 68. 
4 primitive types read: 5 9. 
12H 8. TEXT variable in TREETRAVERSAL at 12- write: 19 21 23 30 62 664 read: 34 67. 
TAH 63 TREE variable in TREETRAVERSAL at 117 write: 18 19 217 read: 17 20 22 37 38 40 41 
42 45 47 48 49 50 51 53 55 56 57 58 59 61. 
1 predefined BOOLEAN constants read: 26. 
FFFOH 1 SOOLEAN variable in BUILDTREE at 145 write: 26 324 read: 34. 


procedure in TREETRAVERSAL at 367 read: 40 42 71. 


2 primitive types read: 10. 
2 INTEGER constant in TREETRAVERSAL at 24 read: 4. 
3 record type in TREETRAVERSAL at 52 read: 8. 
59H 1 CHAR variable in TREETRAVERSAL at 95 write: 30 664 read: 16 18. 
4H 1 SUSSCR parameter in INFIX at 36-7 read: 37. 
4H 1 SUBSCR parameter in POSTFIX at 547 read: 55. 
4H 1 SUBSCR parameter in PREFIX at 464 read: 47. 
10H 2 INTEGER variable in TREETRAVERSAL at 107 write: 30 664 read: 16 17 31. 
2 INTEGER constant in TREETRAVERSAL at 37 read: 71 74 77. 
OH 8 predefined TEXT variables read: 16 20 22 24 27 28 35 39 41 463 45 49 53 59 61 63 


64 65 69 70 72 73 75 76 78 79 81 82. 
procedure in TREETRAVERSAL at 544 read: 57 58 77. 
procedure in TREETRAVERSAL at 46; read: 50 51 74. 


1 0 «- 20 type in TREETRAVERSAL at 47 read: 6 7 8 36 46 54. 
8 primitive types read: 12. 

63 arrayl SUBSCR J of NODE type in TREETRAVERSAL at 87 read: 11. 
1 predefined 300LE4AN constants read: 32. 


Figure 11-3. Sample Cross-Reference Listing 


Pascal-86 User’s Guide Compiler Output 


Not all of these columns will appear on every line of the approximate assembly code 
listing. Compiler-generated labels are preceded by (?). The code generated from each 
source statement will be headed by a comment line bearing the statement number of 
that source statement. Figure 11-4 shows a sample listing of approximate assembly 
code. 


11.1.6 Compilation Summary 


The compilation summary appears at the end of the listing, and provides the follow- 
ing information for each procedure, function, and module: 


e The offset, in hexadecimal, of the entity’s entry point in the code section 
e The size, in hexadecimal and decimal, of the code section 

¢ The size, in hexadecimal and decimal, of the constant section 

e The size, in hexadecimal and decimal, of the data section 


e The size, in hexadecimal and decimal, of the stack section 


The summary also lists the percentage of free memory used by the compilations, the 
number of source lines read and included with the INCLUDE control, and the number 
of errors detected. Figure 11-5 shows a sample compilation summary. 


The summary also lists the number of source lines read and included with the 
INCLUDE control, and the numbers of errors detected. The dictionary summary 
provides information about how memory is utilized. Memory Available represents 
how much system memory is available to the dynamic symbol table. Memory Used 
states how much of that memory is actually used. Disk Space Used indicates the 
amount of disk storage used for the symbol table. Static Space Used gives how much 
memory is used by internal tables against how much is allocated. This last number is 
determined by the SYMBOLSPACE control. Figure 11-5 shows a sample compila- 
tion summary. 


11.2 Object Module 


The result of a successful compilation is a file containing a relocatable object module. 
You link this file with the Pascal run-time libraries and other relocatable files (as 
described in Chapter 12) to produce a single file that is executable. 


From the source file and any included files, the compiler produces one object file that 
contains one object module as the result of the compilation. This object module 
contains sections as described below, which are unique to each module. 


The object module has the following sections: 

¢ Code Section 

¢ Constant Section 

e Data Section 

e Stack Section 

These sections can be combined in various ways into “‘“memory segments” for execu- 


tion, depending on the control used when compiling the program: SMALL (10.3.18), 
COMPACT (10.3.3), or LARGE (10.3.12). 
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8690 
6001 
8093 
0664 


8897 


@00C 
OOBF 


#811 
6614 
8816 
6018 
6919 


OB1A 
681B 
@81D 
OG1E 


6821 
8623 


8825 


8828 
802A 


8620 
O62F 
6931 
6934 


8836 
9638 
6839 


B3ECH2 


C746FC8C38 


8A46FC 
E6D8 


8A46FD 
E6D8 
8BE5 
5D 

c3 


83EC82 


Be3B8 
E6D6 


E8D8FF 


E4C2 
8846FD 


BO64 
F6D8 
2246FD 
E6C2 


8BES5 
SD 
c3 


Assembly Listing of Generated Object Code 


3 STATEMENT # lI 


3 STATEMENT # 11 


RESETCOUNT 
PROC NEAR 
PUSH BP 
MOV BP,SP 
PUSH BP 
SUB SP,2H 
3; STATEMENT # 15 
MOV COUNT [BP] , 308CH 
; STATEMENT # 16 
MOV AL,COUNT [BP] | 
OUT @DGH 
; STATEMENT # 17 
MOV AL, COUNT (BP+1H] 
our 6D9H 
MOV SP,BP 
POP BP 
RET 
RESETCOUNT 
ENDP 
; STATEMENT # 18 
INITIALIZECHIP 
PROC NEAR 
PUSH BP 
MOV BP, SP 
PUSH BP 
SUB SP, 2H 
; STATEMENT # 20 
MOV AL, 38H 
OUT @D6H 
; STATEMENT § 21 
CALL RESETCOUNT 
; STATEMENT # 22 
IN @C2H 
MOV IMASK(BP] ,AL 
; STATEMENT § 23 
MOV AL, 4H 
NOT AL 
AND AL, IMASK (BP ] 
QUT @C2H 
; STATEMENT # 24 
MOV SP,BP 
POP BP 
RET 
INITIALIZECHIP 
ENDP 
; STATEMENT # 25 


Figure 11-4. Sample Listing of Approximate Assembly Code 


In addition, there may be special records generated through your use of the DEBUG 
and/or TYPE controls, and public and external entities. These records are discussed 


after the following descriptions of object module sections. 


11.2.1 Code Section 


This section contains the object code generated by the source program. If the object 
module is a main module, the code section also contains a “main module prologue” 
generated by the compiler. This “prologue” precedes the code compiled from the 
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Summary Information: 


PROCEOQURE OFFSET CODE SIZE DATA SIZeE STACK SIZE 
BUILOTREE OOE1H O0974H 116) 001CH 16D 
ADONODE O0034H OQOIADH 1730 C010H 169 
INFIX O1S5H 9C098H 1520 COOEH 140 
PREFIX Q1E0H JO6FH 1770 COOEH 140 
POSTFIX O25CH O0SFH 1110 OOOEH 140 
TREETRAVERSAL O2CBH 0178H 3790 OCSAH 900 OODEH 140 
-CONST IN CODE- 0034H 520 

Total 0446H 10940 OGSAH 900 GO8CH 140D 


122 Lines Read. 
O Errors Detected. 


Cictionary Summary: 


48KB Memory Available. 

6K3 Memory Used (12%). 

OKB Disk Space Used. 

3K8 out of 16K3 Static Space Used (18%). 


Figure 11-5. Sample Compilation Summary 


source program, and contains the code to set up the CPU for program execution by 
initializing various registers and enabling interrupts. Information about logical files 
used in the module is stored in the code section. 


If either the SMALL or COMPACT control is used, the code sections from all 
modules are combined and allocated space in one logical segment. (Logical segments 
are described in 12.1.) 


If the LARGE control is used (the default), the code section for each module forms 
a complete logical segment that is unique for each module. 


11.2.2 Constant Section 


The constant section contains all memory-resident constants, both literal constants 
and those defined with the keyword CONST. 


If either the SMALL or COMPACT (—CONST IN CODE—) control is used, the 
constant sections from all modules are combined in the same logical segment as the 
code sections. If (—CONST IN DATA —) is specified, these constant sections are 
combined in the same logical segment as the data sections (11.2.3). (Logical segments 
are described in 12.1.) 


If the LARGE (—CONST IN CODE—-) control is used (the default), the constant 
section for each module is combined with the code section to form a complete logical 
segment that is unique for each module. If (—CONST IN DATA—) 1s specified, 
the constant section is combined with the data section to form a complete logical 
segment that is unique for each module. 


Compiler Output Pascal-86 User’s Guide 


11.2.3 Data Section 


The data section contains all global variables at level 0 (above the level of proce- 
dures). All variables at level 1 or deeper (below the level of procedures) are stored in 
the stack section. 


If either the SMALL or COMPACT control is used, the data sections from all 
modules are combined and allocated space in one logical segment. (Logical segments 
are described in 12.1.) 


If the LARGE control is used (the default), the data section for each module forms 
one or more complete logical segments that are unique for each module. 


11.2.4 Stack Section 


The stack section contains all parameters, all variables at level | or deeper (below 
the level of procedures), and is used to store temporary information. The exact size 
of the stack required by each module is estimated by the compiler as the sum of the 
STACK sections for each procedure in the module. You can override this computa- 
tion and explicitly state the stack requirement during the location process. 


If the SMALL control is used, the stack sections from all modules are combined with 
the data sections and allocated space in one logical segment. (Logical segments are 
described in 12.1.) 


If the COMPACT or LARGE control is used, the stack sections from all modules 
are combined and allocated space in one logical segment. 


NOTE 


Since Pascal’s procedures are by definition reentrant, you must be careful to 
allocate a stack section large enough to accommodate all possible storage 
required by multiple incarnations of such procedures. The stack size can be 
explicitly specified during the location process, and you can find stack size 
information in the compilation summary. 


If a run-time stack overflow exception occurs, you may not have allocated enough 
stack space for using sets. The maximum size for a set is (N/8) + 6 bytes where n 
is the number of set members. The number of sets on the stack is a function of the 
complexity of the set expressions in your program. To increase stack size, use the 
SEGSIZE control of LINK86. For example, if you are using sets of type 1..1000, V 
= 1000 and the maximum size is (1000/8) +6 or 134 bytes. Since two sets are 
usually maintained on the stack to implement set operations, the total space you should 
add is 268 bytes. 


11.2.5 Additional Information 


The compiler generates special records to hold type information if you specify the 
TYPE control. These type records are used by the linker and/or various debuggers 
to check for consistency between separately compiled modules, and you should make 
use of them if you want type checking to occur. 


The compiler generates special debug records if you specify the DEBUG control. 
These records define local symbols and line numbers, which may be used later for 
symbolic debugging. 
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For each procedure and data structure appearing in a PUBLIC section of the module 
being compiled, the compiler generates PUBLIC name definition records. If the 
module being compiled is a main program module (see 2.2), a PUBLIC name defini- 
tion is generated for the main program entry point. For each procedure and data 
structure that appears in another module but is referenced by the module currently 
being compiled, the compiler generates an external name definition record. These 
external name definition records are also generated for library routines referred to by 
the module currently being compiled. These records provide information to the linker, 
as described in Chapter 12. 
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12.1 Introduction 


An important feature of Pascal-86 is the ability to compile separate object modules 
that are parts of a whole program. The iAPX 86 utilities provide a way to link these 
modules with modules from run-time support libraries (and modules translated from 
other languages) to form the whole program. 


The result of a single compilation is an object module, but it does not have to contain 
a complete program. In fact, to perform file input/output, set and packed data 
manipulation, real arithmetic, and dynamic memory management (NEW and 
DISPOSE), your object module has to refer to other modules included in run-time 
support libraries, which are listed in 12.2.2. 


In many cases, you will want to write portions of a Pascal program and execute and 
debug them separately. You might also want to code portions of a program in another 
language, translate those portions separately, and link all portions to produce the 
final program. 


To execute Pascal programs, you have to link the object modules that are needed, 
and /Jocate them in memory (bind them to memory addresses). 


The operating system provides 8086-based utilities that allow you to link modules 
together, locate them in memory, and load them for execution. The linker (LINK86) 
links object modules and outputs a module to be located before loading, or located 
by the loader. The locater (LOC86) assigns absolute addresses to modules to locate 
them in actual memory. The loader loads and executes the final program. In addition, 
the LIB86 utility is provided to create and maintain your own library files of compiled 
(or translated) object modules. 


The 8086 resident linker and locater are described in detail in the iAPX 86, 88 Family 
Utilities User’s Guide, which also gives an overview of 8086/8088 memory address- 
ing techniques; definitions of segments, classes, and groups; discussions of segment, 
class, and group combining; and descriptions of how the locater binds segments to 
addresses. The iAPX 86, 88 Family Utilities User’s Guide also describes the mechan- 
ics of loading and executing, the maintenance of program libraries using the 8086- 
resident library utility (LIB86), the object code-to-hexadecimal conversion utility 
(OH86), and intermodule cross-reference (CREF86). 


The following sections briefly describe the process of linking and locating Pascal-86 
programs and using run-time libraries. 


12.2 Linking Object Modules 


You use the linker to link groups of logical segments in the order you choose, resolve 
all references to modules linked together, and prepare the final linked program for 
the locating operation. 


The 8086-based linker (LINK86) will link separately compiled Pascal modules with 
other Pascal-86 modules, modules translated from other high-level languages like 
PL/M-86, and modules translated by ASM86 and the 8089 Macro Assembler. 


CHAPTER 12 
LINKING, LOCATING, AND 
EXECUTING PROGRAMS 
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To satisfy a module that contains external references to other modules, the linker 
uses the information compiled from the module’s interface specification to find another 
module that contains a public symbol to match the external reference. 


The linker produces a single output module. It combines logical segments with the 
same name, combines groups with the same name. The linker also selects modules 
from specified libraries to resolve external references, and optionally purges public 
symbol, local symbol, line number, and comment definitions from the output module. 
Throughout the process, the linker generates a link map and error messages for 
abnormal conditions. 


The linker combines logical segments in the order in which they are encountered in 
the input modules, and on the complete logical segment name (the logical segment 
name and class name). The output module consists of one or more logical segments 
in the order in which unique segment names were encountered in the input modules. 
When a non-unique segment name (a name previously read) is encountered, the linker 
combines the logical segment with the segment previously read. The only way that 
you can change this sequence is to change the names of the logical segments, or 
change the order in which modules are specified in the linker’s command line. 


12.2.1 Use of Libraries 


Libraries are files containing object modules that are created and maintained by the 
library utility, LIB86. These object modules contain public procedures that are refer- 
enced by many programs, i.e., they are common to most programs. You use them to 
build your programs by referring to them as external procedures in your programs, 
and linking them to your programs. 


The linker treats library files in a special manner. When you specify input modules 
to the linker, the linker keeps track of all external references. Then, when you specify 
a library file as input to the linker, the linker searches the library for modules that 
satisfy these unresolved external references. This means that libraries should be 
specified to the linker after the input modules that contain external references. If a 
module in a library has an external reference, the linker searches the library again to 
try to satisfy the reference. The process continues until all external references are 
satisfied, or until the linker cannot find any more public symbols to satisfy an external 
reference 


The library utility is described in detail in the iAPX 86, 88 Family Utilities User’s 
Guide. 


12.2.2 Run-Time Support Libraries 


Intel supplies libraries to provide run-time support for Pascal-86 modules that perform 
file input/output, set and packed data manipulation, arithmetic functions, real arith- 
metic, and dynamic memory (heap) management. The run-time support is divided 
into separate libraries so that only the code required for your application is linked in. 
You do not have to maintain these libraries using LIB86, since they are supplied as 
libraries. 


For example, you would link in the library 8087.LIB if you are using the 8087 
Numeric Data Processor for real arithmetic. If you are using the 8087 emulator, you 
would link in the library E8087.LIB and the module E8087 instead. If you are not 
performing any real arithmetic, you would link in the library 87 NULL.LIB instead. 
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The run-time libraries supplied are as follows. They should be linked in the order 
listed. 


*  P86RNO.LIB and P86RNI1.LIB are both required for all run-time support. 


¢ P86RN2.LIB and P86RN3.LIB are the required logical record system libraries. 
If you intend to provide the interface (logical record interface) to your own record 
system, see K.3.7. If you are not providing run-time support and are not using 
any predefined Pascal input/output, or dynamic memory functions, you must 
link in RTNULL.LIB to resolve external references. 


¢ CEL87.LIB is required to support the following built-in functions: EXP, LN, 
SIN, COS, TAN, ARCSIN, ARCCOS, ARCTAN, TRUNC, ROUND, 
LTRUNC, and LROUND. 


¢ EH87.LIB is required to implement IEEE standard math features that the 8087 
does not support. These include the normalized mode of arithmetic and nontrap- 
ping NaN support. 


¢  §8087.LIB is required to support real arithmetic with the 8087 Numeric Data 
Processor. If you are using the 8087 emulator, use E8087.LIB and the module 
E8087 instead. If you are not performing real arithmetic, you must link in 
87NULL.LIB to resolve external references. 


¢ LARGE.LIB is required to execute Pascal-86 programs in the Series IIT environ- 
ment; it supplies the UDI interface. If your program will run in an environment 
other than the Series III, you need to link in the UDI interface for your operating 
system. You do not need LARGE.LIB if you linked in RTNULL.LIB (for no 
run-time support), unless you supplied your own run-time support libraries that 
rely on the Series III operating system. 


Reentrancy 


All of the Pascal-86 run-time system 1s reentrant except for P86RNO.LIB. A copy of 
this library must be linked into each task, though all of the other libraries can be 
shared between tasks. Each task must be initiated by one “main program” or its 
equivalent (see Appendix J) which will initialize the task’s copy of the shared routines. 
For details on how to use the run-time libraries in a multitasking environment, see 
the Run-Time Support Manual for iAPX 86,88 Applications, Order Number 121776. 


12.2.3 Position-Independent and Load-Time Locatable Modules 


The Pascal-86 compiler attempts to produce position-independent code (PIC modules) 
for non-main modules that do not use any file input/output, packed data structures, 
NEW and DISPOSE to allocate and de-allocate heap space, real arithmetic, proce- 
dural parameters, or set operators. Position-independent modules can be located by 
the loader, then executed. 


Any modules that use any of these features, and all main modules, have to employ 
4-byte long pointers that address other modules. Hence, they are not position- 
independent, since their pointers need to know the base address of the memory segment 
that holds the other object module segments. 


In certain stages of program development, you may want to produce modules that 
can be loaded anywhere in memory by the loader. Use the linker with the BIND 
control, as described in the iAPX 86, 88 Family Utilities User’s Guide, to produce a 
program that can be located at load time by the loader. 


A position-independent module cannot refer to another segment base, but /oad-time 
locatable modules can refer to segment bases in order to access other segments. A 
load-time locatable module is called an LTL module. You can create LTL modules 
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using the BIND control with LINK86 to produce an output module that can be located 
by the loader. In this case, the loader decides where to load the linked LTL modules, 
resolves all references to segment bases, loads the program, initializes all segment 
registers, and executes the program in the iAPX 86 environment. 


Consult the :APX 86, 88 Family Utilities User’s Guide for details on position- 
independent (PIC) and load-time locatable (LTL) modules. 


12.2.4 Sample Link Operations 


The following examples show how to execute Pascal-86 programs in different 
environments. Note that the operating system prompt (and loader, if applicable) are 
not included in these invocations (see your specific operating-system appendix). 


1. To execute a Pascal-86 program in a full-featured operating system environment, 
you should link in all of the Pascal-86 run-time support libraries. If your appli- 
cation also requires support for floating-point arithmetic, you must link in the 
appropriate numerics libraries. For example, using the 8087 emulator, the link 
sequence would be: 


P8G6RNO.LIB, P8ERN1.LIB, P8ERN2.LIB, 
ite pee C= eae P~EITB, ESQS?7, LTB, ES087,>. & €er) 


Wm System-i10 BIND <cr» 


& «cry» 


LINK86 MYPROG.OBV, PB8ERNO.LIB, PBERNI.LIB, P8ERN2,.LIB, & ¢cr> 
Wem SERNZ.LIB, CELS7.L16, 87.LIB, & «cr»? 


Wee system-i16 to MYPROG.86 BIND <cr> 


where 


system-lib is any interface library that may be required by your 
operating system (e.g., LARGE.LIB for the Series III). 


Both of these configurations fully support all of the features of Pascal-86. By 
using the BIND option with LINK86, the output file is ready to be executed, 
assuming that your operating system has an LTL loader. 


If your programs require floating-point support and you want to implement such 
IEEE standard math features as normalized arithmetic and non-trapping NaN 
support, you need to link in the 8087 exception handler EH87.LIB. For example, 
using the 8087 chip, your link command would be: 


P86RN1,LIB, PS86RN2.LIB, 
ed wl sc BS. “ER Bye Loh By B06 7b TB. Cb xen 


& «cry» 


2. To execute your Pascal-86 program in a bare machine (or minimal operating 
system) environment, you only need to link in the run-time libraries P836RNO.LIB 
and P86RNI1.LIB. If your program requires numerics support and you are using 
the 8087 chip, your link command would be: 


LINK8& MYPROG.O5J, PSERNO.LIB, 
wees OS7.LIB TO MYPROG.LNK ¢cr> 


P8ORN A. LIEB;. RENULE ETB; 28 «ers 


In this example, sets and 32-bit arithmetic operations are fully supported. Pascal 
input/output (e.g. READ, WRITE) and memory management (NEW and 
DISPOSE) are not supported; if used, LINK86.86 will generate an 
UNRESOLVED EXTERNALS warning. To support NEW and DISPOSE in 
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this environment, see the Run-Time Support Manual for iAPX 86,88 
Applications. 


If you link in numerics support and an 8087 exception occurs, RTNULL.LIB 
will simply execute an HLT instruction. Since there are no external references 
between RTNULL.LIB and EH87.LIB, the exception handler will never be called. 
Consequently, it should not be included in the link sequence. 


Note that the BIND option was not used, since in this environment your programs 
would probably be located and burned into ROM, or loaded with a simple absolute 
loader. 


12.3 Locating Programs 


The linker produces a single output module. This module can either be located by the 
8086-based locater (LOC86) or, if the BIND control was used when linking the 
program, it can be loaded by the operating system’s loader, then executed. The 
program must be located with LOC86 if it will be burned into ROM or loaded through 
ICE-86A. 


The 8086-based locater (LOC86) binds locatable logical segments to absolute 
addresses. The locater creates an absolute output module from a single input module, 
generates a memory map that summarizes the results of address binding, generates a 
symbol table that shows the addresses of certain symbols, detects any errors that arise 
in the locating process, and filters locating information and compiler-generated 
debugging information. 


The input module to the locater is usually the output module from the linker, but it 
could also be the direct result of a single compilation. The absolute output module is 
the program you can load and execute. 


The locater assigns a physical address to each logical segment. You can direct the 
locater to place logical segments, classes of logical segments, or groups of logical 
segments in specific memory locations. The locater resolves logical addresses to 
physical addresses so that the same segment register can refer to more than one logical 
segment, if those logical segments are combined in a group. For an overview of 8086 
memory addressing techniques, see the iAPX 86, 88 Utilities User's Guide. 


You can collect logical segments into groups that fit into 64K. You can also use a 
class name to refer to logical segments that have the same attribute (e.g., all CODE 
segments, where the class name is CODE). The segment, group, and class names 
assigned by the Pascal-86 compiler depend on the segmentation model used, as 
described in Appendix J. 


You can specify any or all addresses for the various logical segments, or specify none 
at all. The locater applies a default ordering and addressing assignment algorithm to 
those logical segments not mentioned in the LOC86 invocation line. The logical 
segments are ordered and assigned addresses in this sequence: 


e The classes and logical segments mentioned in the ORDER control 

e¢ The classes and logical segments mentioned in the ADDRESSES control 
¢ The logical segments that already have absolute addresses 

¢ The class name of each logical segment 

e The overlay name of each logical segment 

¢ The parent group of an LTL module (if any) 

e The order of logical segments in the input module 
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The locating process is described in detail in the i:APX 86, 88 Family Utilities User’s 
Guide. 


12.3.1 Locating the 8087 Emulator 


The 8087 emulator object code is divided into classes: AQMCODE (the read-only 
portion) and AQMDATA (the read-write portion), and STACK. If you are using the 
8087 emulator, you may want to locate these classes separately using LOC86, in 
order to locate the read-only portion (AQMCODE) in ROM and the read-write 
portion (AQMDATA) in RAM. Do this with the CLASSES subcontrol of the 
ADDRESSES control for LOC86. 


If you are locating the 8087 emulator separately from your program, the interrupt 
vectors that your program uses must be initialized to point to the proper routines in 
the emulator. The INITFP routine, called as part of the main program prologue, will 
initialize these vectors if it knows the E8087 addresses. If the main program is located 
at the same time as the emulator, these addresses are readily available. Otherwise, 
use the PUBLICSONLY input control of LINK86 to obtain the located addresses of 
the emulator. 


The emulator assumes that there are 180 bytes available on the stack for its use, 
which can be allocated using the SEGSIZE control of LOC86. The emulator also 
reserves interrupts 20 through 31. 


12.4 Preconnecting Files 


You can assign physical file names to file variables that are used as program param- 
eters by using a mechanism known as file preconnection. A file variable is a program 
parameter if its identifier appears in a PROGRAM statement. You preconnect files 
at run time on the command line used to invoke your program. 


Pascal-86 offers two ways to associate file variables with physical files: (1) a second 
parameter to REWRITE and RESET (an Intel extension to Pascal), used in a 
program to explicitly state the physical file name, and (2) the preconnection mecha- 
nism (standard to Pascal) used when you execute the compiled program. The first 
way takes precedence: if you supply a second parameter to REWRITE or RESET, 
any preconnection for that file variable is ignored. The second parameter to 
REWRITE and RESET is described in 8.7.1 and 8.7.2. 


Default file names are provided for all file variables. If the file variable is a program 
parameter, you can override the default name by using the preconnection mechanism. 
You cannot preconnect physical files to other file variables, even if the other file 
variables are not specified in a second parameter to REWRITE or RESET. Tempo- 
rary files are created by the host system for such file variables, and the temporary 
files are deleted when the program terminates. 


To use the file preconnection mechanism, specify the file names on the program’s 
invocation line. 


The file preconnection format takes the form: 


( identifier = pathname| , ...]) 
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where 
identifier is the file variable used as a program parameter. 
pathname is a legal pathname for a physical file. 


You do not have to specify or preconnect the physical devices :CO: and :CI: for the 
standard files INPUT and OUTPUT. 


CHAPTER 13 


COMPILE-TIME ERRORS AND WARNINGS 


This chapter describes all of the error and warning messages produced by the compiler. 
Compiler messages are coded by number and are listed in this chapter in numeric 
order by their code numbers so that you can easily look up any message you received. 


In addition to compile-time and run-time error messages (see Chapter 14), you may 
encounter other error messages during program development—errors during the 
linkage and location processes, and other operating system error conditions. Consult 
the iAPX 86,88 Utilities User’s Guide for information on linkage and location errors 
and errors that occur while using the utilities. 


13.1 General Format 


Most of the errors and warnings reported by the compiler appear in the listing file 
governed by the PRINT control, and on the device or in the file governed by the 
ERRORPRINT control (which sends them to the console by default). If you use the 
NOPRINT control, the messages appear at the console only, or at a file specified in 
an ERRORPRINT control. If you specify NOERRORPRINT, errors and warnings 
are reported in the file governed by the PRINT control, or at the console if you 
specified NOPRINT. 


Errors in the invocation line and in the first set of primary control lines are the only 
errors that are not governed by the PRINT or ERRORPRINT controls. These errors 
appear at the console immediately, if they occur. 


The following two sections describe the invocation line errors and compile-time errors 
that are detected by the compiler. All errors and warnings reported by the compiler 
take the following form: 


*** severity n IN stmt Cfile, LINE line): text 


where 

severity is either EXTENSION, WARNING, ERROR, LIMIT 
EXCEEDED, or FATAL ERROR. 

n is the error number described below. 

stmt is the statement number of the Pascal source statement where 
the error occurred. 

file is the name of a source file. 

line is the ordinal position of the source line in the source file 
where the erring statement resides. 

text is the text of the message, as described below. 


The error number n is a four-digit number where each digit is meaningful. The 
leftmost digit (thousandths’ digit) indicates the severity of the message. Table 13-1 
shows the corresponding severity for each leftmost digit of n. 


The second leftmost digit (hundreds’ digit) of the error number n identifies the phase 
of compilation in which the error occurred. Table 13-2 shows the corresponding phases. 
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Table 13-1. Severity Levels of Compiler Errors 


Leftmost : 5 


EXTENSION The compiler detects a violation of the ANSI/ 
IEEE770X3.97-1983. These messages occur only if 
the NOEXTENSIONS control is used. 


WARNING The compiler detects a bad situation, but the problem 
will not affect the validity of the generated code. 


ERROR The compiler detects a definite violation that invali- 


dates the generated code. 


LIMIT A capacity limit of the compiler has been exceeded. 
Although compilation continues, the object code is not 
valid. 


A capacity limit of the compiler has been exceeded, 
and compilation is aborted. 


The compiler detects an unexpected condition in the 
supporting environment. Compilation is aborted. 


Table 13-2. Error Numbers Corresponding to Compilation Phases 


Second 
Leftmost Phase of Compilation 


Digit 
Invocation Line and First Set of Primary Controls 


Scanner 


2 0 


Parser 

(not used) 

Semanticist 
Cross-Referencer 

(not used) 

Code Generator 

Object Module Generator 


3 
4 
5 
6 
7 
8 
9 


13.2 Invocation Line and Primary Control Errors 


The following error messages are also listed in numeric order in section 13.3, but are 
repeated here for quick referencing, since they will most likely occur immediately 
after you invoke the compiler. 


FATAL ERROR 9000: I/0 error on filename: system information 
The compiler cannot find or open filename. Compilation is aborted and control is 
returned to the operating system. Check to see if the file exists. 

FATAL ERROR 9001: Unable to open INCLUDE file 

filename: system information 


The INCLUDE file is not present, or is already open. Combination is aborted, and 
control is returned to the operating system. 
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FATAL ERROR 9002: I/0 error on filename: system information 


The compiler cannot find or open filename. Compilation is aborted and control is 
returned to the operating system. Check to see if the file exists. 


FATAL ERROR 9005: Input file missing or syntax 
error in invocation line. 


FATAL ERRORS 9006 to 9017: I/0 error on compiler 
work file: system information 


The compiler cannot open one or more of the eight files for some reason. Check to 
see if the files are assigned to another disk drive besides the designated work file 
drive, or if the proper disk is not in the designated work file drive. Use the WORK 
command to change the designated work file drive. If the error persists, contact your 
supplier. Compilation is aborted, and control is returned to the operating system. 


FATAL ERROR 90xx: Compiler error in root. 


Unexpected condition; contact your supplier. Compilation is aborted. (xx represents 
a particular number useful only to your supplier.) 


FATAL ERROR 9201: Unknown control, contro/, in 
invocation group. 


The “invocation group” includes the invocation line and the initial set of primary 
control lines in the source file. Compilation is aborted. 


13.3 Compile-Time Errors and Warnings 


FATAL ERROR messages and LIMIT messages over 8000 indicate that compila- 
tion was aborted. In all other cases, compilation will continue; however, ERROR 
messages indicate that an object-module was not generated. In ERROR messages, 
the compiler performs a corrective action that will enable it to continue compiling 
and looking for errors. One common action is to “neutralize” a type specification, so 
that subsequent references to the incorrect type do not cause more type incompati- 
bility errors or undefined symbol errors. Objects whose type have been “neutralized” 
are called neutral objects. 


When an EXTENSION or WARNING message occurs, the generated object code 
is valid as object code, but it might not be valid for the intended use of your program. 
When an ERROR or LIMIT message occurs, compilation may continue, but the 
abject code is not generated. FATAL ERROR messages indicate that the compila- 
tion is aborted. In any case, if compilation is aborted, control is returned to the 
operating system. 


EXTENSION 1201: Non-decimal integer constant, const. 
The constant expression is not a decimal integer. Octal, binary, and hexadecimal 
integers are not permitted in standard Pascal. Compilation continues. 

EXTENSION 1204: Non-standard compiler control. 


This message will occur only if the compiler encounters a general control line. The 
initial set of primary control lines will not cause this message. Compiler controls are 
not part of standard Pascal. Compilation continues. 


EXTENSION 1206: Non-standard underscore in 
identifier (identifier. 


Standard Pascal does not allow underscores in identifiers. 
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EXTENSION 1232: Non-standard LONGINT constant, String. 


Standard Pascal requires that integer constants be in the range — 32767 to + 32767. 


EXTENSION 1500: Non-sStandard interface 
specification. 


Intel’s Pascal-86 allows separate compilation units for a single program, each of which 
starts with an interface specification. Standard Pascal only supports a single compi- 
lation unit, which must start with a program heading. 


EXTENSION 1502: Label too large. 


To conform to the Pascal standard, labels must be in the range 0 to 9999. Intel’s 
Pascal-86 does not have this restriction. 


EXTENSION 1504: Non-standard concatenation of 
string constants. 


Intel’s Pascal-86 allows concatenation of string constants. Standard Pascal does not 
support this feature. 


EXTENSION 1508: Case constants in variant record do 
not map onto range of tag type. 


Standard Pascal requires that the set of case constant values in a variant record must 
equal the set of values in the tag type. Intel’s Pascal-86 does not have this restriction. 


EXTENSION 1514: Non-standard signature on forwarded 
definition. 


Intel’s Pascal-86 allows a parameter list (and result type) specification to appear in 
a procedure or function declaration that has been previously declared to be 
FOR WARD. Standard Pascal does not support this feature. 


EXTENSION 1516: Use of non-standard predefined 
symbol, symbol. 


The symbol is a predefined constant, type, procedure, or function offered only in 
Pascal-86, not in standard Pascal. The symbols defined in Pascal-86 (that would cause 
this message) are TAN, ARCSIN, ARCCOS, INBYT, OUTBYT, INWRD, 
OUTWRD, GET8087ERRORS, MASK8087ERRORS, AT87ERRORS, 
AT87EXCEPTIONS, AT87PRCN, AT87UNDR, AT870OVER, AT87ZDIV, 
AT87DENR, AT87NVLD, AT87MASK, AT87RSVD, CR, LF, ENABLEINTER- 
RUPTS, DISABLEINTERRUPTS, CAUSEINTERRUPT, SETINTERRUPT, 
LONGINT, MAXLONGINT, LTRUNC, LROUND, LORD, WORD, WRD, 
MAXWORD, TEMPREAL, LONGREAL, and BYTES. 


EXTENSION 1517: Non-standard invocation of (fdentifier. 


This is caused by the Intel extension to standard Pascal that allows you to specify a 
second argument to REWRITE and RESET. Standard Pascal allows only one 
argument. 


EXTENSION 1518: Non-standard indexed reference to 
component of a string constant. 


Intel’s Pascal-86 allows indexed references to components of a string constant. 
Standard Pascal does not support this feature. 
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EXTENSION 1520: Non-Standard OTHERWISE clause in 
CASE statement. 


Intel’s Pascal-86 allows OTHERWISE clauses, which are not included in standard 
Pascal. 


EXTENSION 1522: Character appears where string is 
expected. 


Intel’s Pascal-86 allows you to use a single-character constant wherever a string is 
permitted; i.e., a single-character constant can be interpreted as a PACKED ARRAY 
[1..1] OF CHAR. Standard Pascal does not allow a single-character constant where 
a string is permitted. 


EXTENSION 1524: Factored procedural- or functional- 
parameter list. 


In a parameter declaration, standard Pascal permits only one identifier to follow the 
PROCEDURE or FUNCTION word-symbol. Intel’s Pascal-86 allows a list of 
identifiers. 


EXTENSION 1525: Integer argument n of builtin identifier 
should be real. 

Standard Pascal requires that the arguments to TRUNC and ROUND be of a real 
type. 

EXTENSIGN 1534: Extended definition and 
compatability of strings. 

Pascal-86 extends string type to include PACKED or UNPACKED arrays of type 
CHAR with a lower bound of 0 or |. 


EXTENSION 1535: Argument n of identifier is a member of 
a packed structure. 


Pascal-86 will pass arguments that are components of a packed array of type CHAR. 


WARNING 3102: Illegal character, “char” in control 
line. 


The compiler found a character that is not permitted in an identifier while looking 
for a control name. The character is ignored, and compilation continues. 
WARNING 3103: Premature end of control line. 
The compiler found an end-of-line before finding a closing parenthesis of a control 


argument list. The control is not processed, and compilation continues. 


WARNING 3104: Controls follow an INCLUDE control on 
the same line. 


The INCLUDE control terminates the processing of the control line it is on. Any 
control that follows INCLUDE on the same control line is ignored, and compilation 
continues. 

WARNING 3105: Control token, control, too long. 

The characters scanned are discarded and scanning continues. WARNING 3201! will 
probably also occur. 

WARNING 3106: Syntax error in control control; control 
will be ignored. 


The contro/ control is ignored, and compilation continues. 
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WARNING 3107: Syntax error at ‘<«token>d>’; rest of 
control line has been ignored. 


A syntax error was caused by the string of characters in < token >. 


WARNING 3108: Constant nm is greater than 
MAXLONGINT. MAXLONGINT is used. 


The value specified falls outside the range of integer values). MAXLONGINT 
(+ 2147483647) is substituted, and compilation continues. 


WARNING 3120: Domestic symbol identifier of subsystem 
identifier is declared public FOR module identifier, which is 
not a member of that subsystem. 


The named symbol has not been exported from its subsystem, but its FOR clause 
includes a module that is not in this subsystem. 


WARNING 3201: Unknown control, control. 


The unknown control is ignored, and scanning continues. 


WARNING 3202: Primary control, control, illegally 
specified outside invocation group. 


You can specify primary controls only in the invocation line, or in the initial set of 
primary control lines (known as the “invocation group”). The control is ignored, and 
compilation continues. 


WARNING 3206: Required parameter string missing 
from control control. 


A TITLE or SUBTITLE control was specified without the title or subtitle. The control 
is ignored, and compilation continues. 


WARNING 3208: Invalid SYMBOLSPACE parameter, 
default value used. 


A valid parameter for the SYMBOLSPACE control ranges from 5 to 64. 


WARNING 3209: Insufficient memory for SYMBOLSPACE 
allocation, maximum used. 


The request for SYMBOLSPACE allocation is larger than the memory available; 
the maximum amount available is being used. 


WARNING 3501: jidentifie does not match identifier on 
MODULE statement. 


The name in the PROGRAM or PRIVATE statement does not match the name in 
the MODULE statement. The compiler assumes the PROGRAM or PRIVATE name 
to be the correct one, and compiles the module using that name. 


WARNING 3505: Label label has been defined but not 
declared. 


This warning occurs when a label that was not declared in a LABEL statement appears 
on a statement. The compiler assumes a declaration occurred and continues compiling, 
and the object code generated contains this repair, but the repair might not be what 
you intended for your program. 
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WARNING 3507: Label Jabel has been declared but not 
defined. 


This warning occurs when a label was declared in a LABEL statement but never used 
to label a statement in the block. The compiler ignores the label and continues 
compiling. 


WARNING 3554: Multiple FORWARD declarations for 
identifier . 


Multiple FOR WARD declarations occurred for the same identifier. All FORWARD 
declarations after the first one are ignored, and compilation continues. 


WARNING 3556: Definition and FORWARD declaration 
for identifier do not match. 


This occurs if the parameter list or result value specified in a FORWARD definition 
does not agree with the corresponding parameter list or result type specification in 
the FORWARD declaration. The compiler chooses the specification in the 
FORWARD declaration, and continues compiling. 


WARNING 3558: Multiple declarations for label Jabel. 


The compiler found more than one declaration for label. The compiler uses the first 
declaration, ignores the others, and continues compiling. 


WARNING 3576: Program parameter name has not been 
declared a file. 


Program parameters may be defined only as files within the program block. The 
explicit declaration stands, but the program parameter cannot be used as a file. 
Compilation continues with this repair, but the generated object code might not be 
what you intended for your program. 


WARNING 3578: Argument n of name is a nested 
function or procedure. 


Pascal-86 does not allow the argument to a BYTES parameter to be a nested proce- 
dure or function. If this procedure or function is invoked, all “up-level” references 
will be incorrect. 


WARNING 3579: In argument nm to FAR procedure or 
function name, attempt to pass a NEAR procedure as a 
BYTES argument. 


WARNING 3580: Variant part of record is segmented. 
It is unwise to declare part of a variant record to be greater than 64K. The data 


representation is not contiguous. 


WARNING 3601: Insufficient memory to complete 
Cross-Reference. 


WARNING 3902: Identifier, identifier, has been truncated 
to identifier. 


Program and module identifiers may not exceed 31 characters. Public identifiers may 
not exceed 40 characters. (If the Debug control is active, local symbols are also 
truncated to 40 characters. ) 


WARNING 3906: Insufficient memory to generate type 
information for (identifier. 


A type record for the null type is generated for the specified identifier. 
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WARNING 3907: Overflow occurred when real constant 
nwas converted to binary. [Infinity is used. 


The value specified exceeds the largest representable real number. Infinity is substi- 
tuted and compilation continues. 


WARNING 3908: Underflow occurred when real constant 
nwas converted to binary. Zero is used. 


The value specified is lower than the smallest representable real number. Zero is 
substituted and compilation continues. 


WARNING 3909: Rounding occurred when real constant 
nwas converted to binary. 


ERROR 5112: Multiple definitions for identifier 
subsystem. 


Each subsystem name must be unique. The segmentation control is ignored, and 
compilation continues. 


ERROR 5114: Module identifier of identifier subsystem is also 
claimed by (identifier subsystem. 


The named module appears in the HAS list for two or more segmentation controls. 
The module will remain in its originally specified subsystem. 


ERROR 5115: Symbol identifier exported from identifier 
subsystem is also claimed by identifier subsystem. 


The named symbol appears in the EXPORTS list for two or more subsystem defini- 
tions. The symbol will remain in its originally specified subsystem. 


ERROR- 5116: Symbol identifier, exported from identifier 
subsystem, is actually declared in module (identifier. 


The named symbol appears in the EXPORTS list for the named subsystem, but is 
declared in a module belonging to another subsystem. 


ERROR 5117: Predefined files, INPUT and QUTPUT, 
exported from different subsystems. 


The predefined files INPUT and OUTPUT can only be exported from the subsystem 
containing the main module of the program. 


ERROR S118: A HAS list is not permitted with an 
open subsystem. 


ERROR 5122: The open subsystem identifier has been 
created; No more allowed. 


The definition of the open subsystem must be the last segmentation control in the 
source program. The appearance of a segmentation control after a PUBLIC section 
not named in any HAS clause can cause this message. 


ERROR 5123: The open subsystem identifier was created 
for the module identifier; No more allowed. 


ERROR 5203: Interrupt number, mn, not in range 
0..255. Using 0. 


The interrupt number associated with an interrupt procedure in an INTERRUPT 
control is not in the proper range (0 to 255). The compiler uses a zero for the inter- 
rupt number, and compilation continues. 
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ERROR S310: ¢I1D>, a compiler-generated identifier, 
used to repair source. 


Because <ID> was inserted by the error repair mechanism, an object module cannot 
be generated. 


ERROR S311: Nested IFs are not allowed. 


ERROR S312: Misplaced ELSEIF or ELSE control. 


An ELSE or ELSEIF control must be specified in control line format—a dollar sign 
($) in the left margin, followed by one or more controls, each separated by one or 
more blanks. Because ELSE and ELSEIF are generated controls, they may appear 
either in the command invocation line or on a control line located anywhere in the 
source code. Only one ELSE element may be included in an IF element. 


ERROR 5313: Misplaced ENDIF control. 


An ENDIF control must be specified in control line format—a dollar sign ($) in the 
left margin, followed by one or more controls, each separated by one or more blanks. 
Because ENDIF is a general control, it may appear either in the command invocation 
line or on a control line located anywhere in the source code. 


ERROR 5314: Conditional control expression 
overflow. 


ERROR $315: Conditional control expression 
underflow. 


ERROR 5316: Syntax error in identifier or number: 
token. 


The expression following IF in an IF element must be one of these oeprators: OR, 
NOT, AND, <, <, =, >, =, and < >. The only operands allowed are switches 
and whole number constants from 0 to 255; otherwise, the incorrect identifier appears 
as token. 


ERROR 5317: Number, number, must be in range 0 to 
2s5. 


ERROR S500: Multiple declarations for identifier. 


Multiple declarations were found for identifier. The compiler chooses the first decla- 
ration in the block. The extra declarations appear in the cross-reference listing showing 
no references to the object. The compiler continues compiling, but does not generate 
an object module. 


ERROR S502: Duplicate field name, identifier, in record 
definition. 

The compiler adds the field to the record, but without a field name. The compiler 
continues compiling, but does not generate an object module. 

ERROR 5504: Illegal circular definition of identifier. 


A type or constant was defined using a bad recursive structure in which no pointers 
are used. For example, X=ARRAY[1..10] OF X, or Y=Z; Z=ARRAY{[1..10] OF 
SET OF Y. The compiler supplies a neutral type and continues compiling, but does 
not generate an object module. 
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ERROR 5506: identifier has not been declared. 


All identifiers must be declared. The compiler substitutes a neutral object for the 
illegal reference and continues compiling, but does not generate an object module. 


ERROR 5510: jdentiier is not a constant as required. 


An identifier on the right-hand side of a constant definition must denote a constant. 
The compiler supplies a neutral constant and continues compiling, but does not 
generate an object module. 


ERROR 5511: identifier is not a numeric constant as 
required. 


The identifier following a + or — sign in a constant definition must denote a numeric 
constant. The compiler substitutes a one for identifier and continues compiling, but 
does not generate an object module. 


ERROR S515: In the subrange specification 
const!..const2, the constants are not compatible. 


The subrange bounds const? and const2 are of different or incompatible types. The 
compiler nullifies the subrange specification and continues compiling, but it does not 
generate an object module. 


ERROR S517: The bounds of the subrange 
specification const?. .const2 are out of order. 


The lower bound of the subrange is greater than the upper bound. The compiler 
nullifies the subrange specification and continues compiling, but it does not generate 
an object module. 


ERROR 5519: The constant identifier is not legal in a 
subrange specification. 

Pascal-86 requires that the endpoints of a subrange type be of an ordinal type. The 
compiler supplies a neutral type and continues compiling, but it does not generate an 
object module. 

ERROR S530: identifier is not a type as required. 

The specified context requires a type identifier. The compiler supplies a neutral type 
and continues compiling, but it does not generate an object module. 

ERROR S534: Base type of set is not acceptable. 


Pascal-86 requires that the base type of a set be of any ordinal type except WORD 
or LONGINT. The compiler supplies a neutral type and continues compiling, but it 
does not generate an object module. 


ERROR 5535: Index type identifier is not acceptable. 


Pascal-86 requires that the index type of an array specification be of an ordinal type. 
The compiler supplies a neutral type and continues compiling, but it does not gener- 
ate an object module. 


ERROR 5536: Tag type identifier is not acceptable. 


Pascal-86 requires that the tag type of a variant record be of any ordinal type except 
LONGINT. The compiler supplies a neutral type and continues compiling, but it 
does not generate an object module. 
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ERROR 5537: symbol is a duplicate case constant in a 
variant record specification. 


The case constant symbol is invalid, because it is a duplicate of another constant in 
the same record. The variant is incorporated into the record, but it is not associated 
with a case constant. The compiler continues compiling, but does not generate an 
object module. 


ERROR 5538: Case constant symbol is incompatible with 
tag type. 
The case constant symbol is invalid. The variant is incorporated into the record, but 


it is not associated with a case constant. Compilation continues, but an object module 
is not generated. 


ERROR 5540: File type has a component that is or 
contains a file. 


Pascal does not allow a component of a file to contain an imbedded file. The imbedded 
file is neutralized and compilation continues, but an object module is not generated. 


ERROR S542: The function result type identifier is not a 
scalar type. 


ERROR 5544: The implicit variable associated with 
function sdentiie is never assigned a value in the 
body of the function. 


ERROR 5547: Argument n of identifier is not addressable. 


VAR arguments passed to SMALL procedures must be defined in SMALL sub- 
systems, or must be obtained by dereferencing a SMALL pointer. 


ERROR 5552: No definition for identifier appears after 
FORWARD declaration. 


The identifier was declared as a FORWARD procedure, but a subsequent definition 
of identifier did not appear in the block, or the definition preceded the FORWARD 
declaration. The compiler continues compiling, but does not generate an object module. 


ERROR S560: Target of GOTO Jabel is undefined. 


The label referred to in the GOTO statement is not defined anywhere within an 
enclosing block. The compiler deletes the GOTO statement and continues compiling, 
but it does not generate an object module. 


ERROR 5561: Target of GOTO Jabel is inaccessible. 


The label referred to in the GOTO statement is defined, but it is located on a state- 
ment at a nesting level that is deeper than the nesting of the GOTO, or otherwise 
incompatible with the nesting of the GOTO. The compiler deletes the GOTO state- 
ment and continues compiling, but it does not generate an object module. 


ERROR SS62: Invalid call to function identifier in a 
procedure statement. 


A function name was used by mistake in a procedure statement. The compiler ignores 
the procedure statement and continues compiling, but it does not generate an object 
module. 


ERROR 5564: Variable expected in this context. 


The left side of an assignment statement or an argument passed as a VAR parameter 
is not a variable, as required. The compiler ignores the statement, neutralizes its type, 
and continues compiling, but it does not generate an object module. 
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ERROR 5566: Right side of assignment statement is 
not compatible with left side. 


The compiler ignores the assignment statement and continues compiling, but it does 
not generate an object module. 


ERROR 5567: Illegal assignment to a variable that 
is or contains a file, 


ERROR S568: IF expression is not of type Boolean. 


The expression following IF in an IF statement must be of type Boolean. 
The compiler ignores the expression and continues compiling, but it does not generate 
an object module. 


ERROR 5570: CASE expression is not of an ordinal 
type. 
The expression following CASE in a CASE statement must be of an ordinal type. 


The compiler ignores the expression, neutralizes the index type, and continues 
compiling, but it does not generate an object module. 


ERROR 5574: Program parameter name has not been 
declared. 


A program parameter was used as a file variable, but it was not declared. Program 
parameters other than INPUT and OUTPUT must be declared in the program block 
if they are to be used as file variables within the program. If the program tries another 
reference to it, another error will occur. Compilation continues, but no object code is 
generated. 


ERROR SS76: Argument n of identifier is not memory 
resident. 


The indicated argument cannot be passed as a VAR BYTES parameter. This error 
occurs when passing ordinal constants and string constants of length one. 


ERROR S577: WHILE expression is not of type 
Boolean. 


The expression following WHILE in a WHILE statement must be of type Boolean. 
The compiler ignores the expression and continues compiling, but it does not generate 
an object module. 


ERROR 5578: UNTIL expression is not of type 
Boolean. 


The expression following UNTIL in an UNTIL statement must be of type Boolean. 
The compiler ignores the expression and continues compiling, but it does not generate 
an object module. 


ERROR 5580: FOR loop index, identifier, is not a 
variable as required. 


The index of a FOR loop must be a variable. The compiler ignores the reference, 
neutralizes its type, and continues compiling, but it does not generate an object module. 


ERROR SS8i: In argument n to procedure or function 
name, attempt to pass a procedure, variable, or 
memory-resident constant as a BYTES argument to a 
non-local procedure of a SMALL subsystem. 
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ERROR 5582: FOR loop index, fdentifier, is a global 
variable. 


The index of a FOR loop must be defined in the immediately enclosing block. The 
compiler ignores the reference, neutralizes its type, and continues compiling, but it 
does not generate an object module. 


ERROR 5584: The type of FOR loop index, identifier, is 
not acceptable. 


Pascal-86 requires that a FOR-loop index be of an ordinal type. The compiler ignores 
the reference, neutralizes its type, and continues compiling, but does not generate an 
object module. 


ERROR 5585: The initial-value expression of the FOR 
loop is incompatible with the type of the index 
variable. 


The type of the index variable prevails, and the initial-value expression is ignored. 
The compiler continues compiling, but does not generate an object module. 


ERROR S586: The final-value expression of the FOR 
loop is incompatible with the type of the index 
variable. 


The type of the index variable prevails, and the final-value expression is ignored. The 
compiler continues compiling, but it does not generate an object module. 


ERROR 5587: Illegal reference to FOR loop index 
identifier . 


This occurs when a FOR loop index appears on the left side of an assignment state- 
ment, as the variable argument in a function or procedure call, as the index of a 
nested FOR loop, or as the argument to READ or READLN. The compiler supplies 
a neutral object for identifier in this reference and continues compiling, but it does 
not generate an object module. 


ERROR $S$88: jdentifier is not a valid data reference in 
a WITH statement. 


A variable used in a WITH statement must be a variable of a record type. The 
compiler ignores the reference and continues compiling, but it does not generate an 
object module. 


ERROR S592: The type of case constant, symbol, is not 
acceptable. 


Pascal-86 requires that case constants be of any ordinal type except LONGINT. The 
case constant is ignored, but the statements of the case are analyzed as compilation 
continues. An object module is not generated. 


ERROR 5594: symbol is a duplicate case constant. 
Although the extra case constant is ignored, the CASE statements are analyzed and 


compilation continues. An object module is not generated. 


ERROR S595: Case constant, identifier, is incompatible 
with the CASE expression. 


ERROR S596: The variable identifier... is not a record as 
required by the WITH statement. 


A variable used in a WITH statement must be a variable of a record type. The variable 
denotation beginning with identifier... does not denote such a variable. The reference 
is ignored and compilation continues, but an object module is not generated. 
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ERROR 6501: Compiler error in Semantic Analyzer 
(Cn, m). 


Contact your supplier. (n and m are compiler debug information.) 


ERROR 6502: Base type of set is not in the range of 
integers. 


ERROR 6510: The type of the index expression does 
not match the index type of the variable (identifier... 


The variable denotation beginning with identifier... denotes an array. The compiler 
ignores the index expression and selects an arbitrary component of the array. The 
compiler continues compiling, but it does not generate an object module. 


ERROR 6512: The indexed variable (identifier... is not an 
array. 


The variable denotation beginning with identifier... is subscripted, but it does not denote 
an array. The compiler supplies a neutral object and continues compiling, but it does 
not generate an object module. 


ERROR 6514: identifier is not a field of the designated 
record. 


The compiler supplies a neutral object for identifier and continues compiling, but it 
does not generate an object module. 


ERROR 6516: The dereferenced variable (jdentifier... is not 
a pointer. 


The variable denotation beginning with identifier... contains the up-arrow ( t ) opera- 
tor, but it does not denote a pointer. The compiler supplies a neutral object and 
continues compiling, but it does not generate an object module. 


ERROR 6518: The qualified variable identifier... is not a 
record. 


The variable denoted by identifier... is qualified with a field designator, but the varia- 
ble is not a record. The compiler supplies a neutral object and continues compiling, 
but it does not generate an object module. 


ERROR 6520: identifier cannot be referenced in an 
expression. 


The identifier is not a constant, variable, or function, and therefore it cannot be referred 
to in an expression. The compiler supplies a neutral object and continues compiling, 
but it does not generate an object module. 


ERROR 6533: Function reference (jdentifie references the 
return value. 


ERROR 6540: For the operator symbol, type of operand 
is incompatible with operator. 

A wrong type of operand was used. The compiler supplies a neutral object for the 
operator and continues compiling, but it does not generate an object module. 
ERROR 6541: The operands of operator symbol are 
incompatible with each other. 


The compiler supplies a neutral result for the operation and continues compiling, but 
it does not generate an object module. 
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ERROR 6542: Illegal call to procedure (identifier in 
expression. 


A procedure name was used by mistake in an expression. The compiler supplies a 
neutral object for the call and continues compiling, but it does not generate an object 
module. 


ERROR 6544: Argument list in call to (dentifier is too 
short. 


The compiler supplies a neutral object for the call and continues compiling, but it 
does not generate an object module. 


ERROR 6545: Near symbol symbol, a set expression 
element is not an ordinal value. 


The compiler deletes the element and continues compiling, but it does not generate 
an object module. 


ERROR 6546: Near symbol symbol, type of set 
expression element is incompatible with expressions 
that follow it. 


The compiler deletes the incompatible element, and continues compiling, but it does 
not generate an object module. 


ERROR 6548: Argument list in call to identifier is too 
long. 


The compiler supplies a neutral object for the call and continues compiling, but it 
does not generate an object module. 


ERROR 6550: Argument. n of identifier is not the same 
type as the corresponding VAR parameter. 


The nth parameter of identifier is a VAR parameter. The compiler supplies a neutral 
object for the nth argument in the call to identifier and continues compiling, but it 
does not generate an object module. 


ERROR 6552: Argument n of identifier is not assignment- 
compatible with the corresponding value parameter. 


The nth parameter of identifier is a value parameter. The compiler supplies a neutral 
object for the nth argument in the call to identifier and continues compiling, but it 
does not generate an object module. 


ERROR 6555: Argument n of identifier is not a function 
or procedure. 


The nth parameter of identifier is a functional or procedural parameter. The compiler 
supplies a neutral object for the nth argument in the call to identifier and continues 
compiling, but it does not generate an object module. 


ERROR 6556: The parameter list of argument n of 
identifier does not match the parameter list of the 
corresponding procedural parameter. 


The nth parameter of identifier is a procedural or functional parameter. The compiler 
supplies a neutral object for the nth argument in the call to identifierand continues 
compiling, but it does not generate an object module. 
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ERROR 6557: identifier is not eligible as an interrupt 
procedure. 


To be allowed as an interrupt procedure, identifier cannot have any parameters, and 
it must be defined at level one. The compiler ignores the definition and continues 
compiling, but it does not generate an object module. 


ERROR 6558: Second parameter of SETINTERRUPT is not 
an interrupt procedure. 


The second parameter for the SETINTERRUPT procedure must be an interrupt 
procedure. The compiler ignores the statement and continues compiling, but it does 
not generate an object module. 


ERROR 6559: Argument n of identifier is an interrupt 
procedure, which cannot be a procedural argument. 


ERROR 6560: identifier is not a procedure as required. 


The context requires that identifier be a procedure. The compiler deletes the state- 
ment and continues compiling, but it does not generate an object module. 


ERROR 6561: Attempt to reassign interrupt number n 
to interrupt procedure (identifier. 


Pascal does not allow the same interrupt number to be assigned to more than one 
interrupt procedure. 


ERROR 6562: Argument identifier is a predefined routine; 
it cannot be a procedural argument. 


Pascal-86 does not allow you to pass predefined routines as arguments to user-defined 
routines. The compiler supplies a neutral object for identifier and continues compiling, 
but it does not generate an object module. 


ERROR 6564: Argument n of identifier must be a variable. 


An expression was used as an argument for a VAR parameter where a variable must 
be used. The compiler supplies a neutral object for the argument and continues 
compiling, but it does not generate an object module. 


ERROR 6565: Argument n of identifier cannot be a member 
of a packed structure. 


Components of packed structures cannot be passed as VAR arguments. The compiler 
supplies a neutral object for the argument and continues compiling, but it does not 
generate an object module. 


ERROR 6566: Argument n of identifier is an invalid 
argument specification. 


The argument notation e:e or e:e:e can be used only in the predefined procedures 
WRITE and WRITELN. The compiler ignores the extra notation and continues 
compiling, but it does not generate an object module. 


ERROR 6567: Format of argument n of identifier is 
invalid for non-real argument. 


The argument notation e:e:e can be used only for REAL type arguments to the prede- 
fined procedures WRITE or WRITELN. The compiler ignores the notation and 
continues compiling, but it does not generate an object module. 
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ERROR 6568: The field width specifier in argument n 
of identifier must be an integer value. 


The identifier is either WRITE or WRITELN. 


ERROR 6570: Standard file filename, implied by call to 
predefined I/0 routine, has not been defined. 


In a call to EOF, EOLN, READ, WRITE, READLN, WRITELN, or PAGE, a file 
parameter was omitted, implying one of the standard files INPUT or OUTPUT; 
however, neither standard file appeared as a program parameter. This error can occur 
only in a main module. The compiler assumes that INPUT and OUTPUT are program 
parameters if they are referenced in a non-main module. The compiler assumes that 
the call implies one of the standard files and continues compiling, but it does not 
generate an object module. 


ERROR 6572: Argument n of identifier is not a Text file 
as required. 


The file argument to READ, WRITE, READLN, WRITELN, EOLN, and PAGE 
must be a text file. The compiler continues compiling, but it does not generate an 
object module. 


ERROR 6580: Argument n of identifier is not a constant. 


The forms of NEW and DISPOSE for variant records must have constant values for 
variant selectors. The compiler deletes the statement and continues compiling, but it 
does not generate an object module. 


ERROR 6582: Argument n of identifier is incompatible 
with the tag type of the variant record to which it 
corresponds. 


The nth argument of either NEW or DISPOSE is incompatible. The compiler deletes 
the statement and continues compiling, but it does not generate an object module. 


ERROR 6583: Argument n of identifier is not an array. 


The nth argument in a call to PACK or UNPACK is not an array as required. The 
compiler deletes the statement and continues compiling, but it does not generate an 
object module. 


ERROR 6584: The array arguments of identifier are 
incompatible. 


The array arguments for the PACK and UNPACK procedures are described in section 
8.6. The compiler deletes the statement and continues compiling, but it does not 
generate an object module. 


ERROR 6586: The index argument of identifier is 
incompatible with the index type of the arrays. 


The identifier is either PACK or UNPACK. 


ERROR 6588: Argument n of identifier is incompatible 
with the component type of the file. 


Ina call to READ, WRITE, READLN, or WRITELN, an argument is not compat- 
ible with the component type of the file. For example, in “READ(f,c)”’, this error 
would occur if “c” is incompatible with “ft”. The compiler deletes the statement 
and continues compiling, but it does not generate an object module. 
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ERROR 6589: Argument nm of PACK or UNPACK is not an 
array. 


ERROR 6801: Integer overflow exception detected at 
compile-time. 


ERROR 6802: Range check exception detected at 
compile-time. 


LIMIT EXCEEDED 7301: At most 10 switches allowed 
for conditional compilation. 


LIMIT EXCEEDED 7501: The definition of identifier 
requests more than 65535 bytes. 


A data structure cannot have more than 65535 bytes. Offsets generated for the data 
structure are invalid. The compiler continues compiling, but it does not generate an 
object module. 


LIMIT EXCEEDED 7502: The definition of symbol 
requests more than 65535 bits. 


A packed data structure cannot have more than 65535 bits (8192 bytes). Offsets 
generated for the data structure are invalid. The compiler continues compiling, but it 
does not generate an object module. 


LIMIT EXCEEDED 7503: The definition of the set 
requests more than 32767 elements. 


Sets cannot have more than 32767 elements. Offsets generated for the data structure 
are invalid. The compiler continues compiling, but it does not generate an object 
module. 


LIMIT EXCEEDED 7504: The range of values spanned by 
the constants of a CASE statement has more than 
1009 values. 


The CASE statement jump table cannot have more than 1009 entries. The compiler 
ignores the extra entries and continues compiling, but it does not generate an object 
module. 


LIMIT EXCEEDED 7505: The data segment of identifier 
exceeds 65535 bytes. 


LIMIT EXCEEDED 7507: The size of the dynamic area 
requested exceeds 65535 bytes. 


LIMIT EXCEEDED 7508: Local variables cannot be 
segmented. 


LIMIT EXCEEDED 7509: Segmented data is only allowed 
in the LARGE model. 


LIMIT EXCEEDED 7510: Segmented data cannot be 
passed as value parameters. 


LIMIT EXCEEDED 7511: File variables cannot be 
segmented. 


LIMIT EXCEEDED 7512: Too many extra segments 
required. 
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LIMIT EXCEEDED 7513: Dynamic variables may not 
contain nested segmented data. 


LIMIT EXCEEDED 7514: Allocation of segmented arrays 
is only allowed in the LARGE model. 


LIMIT EXCEEDED: 7901: Too much debug information. 
FATAL ERROR 8201: Maximum INCLUDE nesting level (5) 
exceeded. 

When including a file that also includes a file, etc., you can include only up to a total 
of five files. Compilation is aborted. 

FATAL ERROR 8301 to 8303: Parse stack/buffer limit 
exceeded. 

You may be able to avoid a stack overflow by reducing the nesting of procedures and 
shortening the length of statement lists. Compilation is aborted. 

LIMIT EXCEEDED 8501: Semantic analyzer stack/buffer 
overflow. 

You may be able to avoid a stack overflow by reducing the nesting of procedures. 
Compilation is aborted. 

LIMIT EXCEEDED 8503: Memory exhausted after n 

bytes. 


The storage required during semantic analysis is exhausted, and compilation is aborted. 
Use the Symbol Space control to increase allocated memory. You may be able to 
avoid this overflow by shortening the length of statement lists. 

LIMIT EXCEEDED 8801: Expression too complex. 


Expressions cannot have more than 50 operands, and expression nesting is also limited. 
Rewrite the expression to reduce its complexity. Compilation is aborted. Adding more 
memory or increasing the Symbol Space parameter may help. 


LIMIT EXCEEDED 8802: type segment of module exceeds 
65535 bytes. 

The type of the segment is either CODE or STACK. Compilation is aborted. 
LIMIT EXCEEDED 8803: Compiler generated label table 
overflow. 

There are too many flow control statements (IF-THEN, WHILE, CASE, etc.) in the 
current procedure. Break the procedure into smaller procedures. 


LIMIT EXCEEDED 8901: Object module too complex. 


LIMIT EXCEEDED 8902: identifier segment of module 
exceeds 65535 bytes. 


FATAL ERROR 9000: I/0 error on filename: system information 


The compiler cannot find or open filename. Compilation is aborted and control is 
returned to the operating system. Check to see if the file exists. 
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FATAL ERROR 9001: Unable to open INCLUDE file 
filename: system information 


The INCLUDE file is not present, or is already open. Compilation is aborted, and 
control is returned to the operating system. 

FATAL ERROR 9002: I/0 error on filename: system information 
The compiler cannot find or open filename. Compilation is aborted and control is 


returned to the operating system. Check to see if the file exists. 


FATAL ERROR 9005: Input file missing or syntax 
error in invocation line. 


FATAL ERRORS 9006 to 9017: I/0 error on compiler 
work file: system information 


The compiler cannot open one or more of the eight workfiles for some reason. Check 
to see if the files are assigned to another disk drive besides the designated workfile 
drive, or if the proper disk is not in the designated workfile drive. Use the WORK 
command to change the designated workfile drive. If the error persists, contact your 
supplier. Compilation is aborted, and control is returned to the operating system. 
FATAL ERROR 90xx: Compiler error in Root. 

Unexpected condition; contact your supplier. Compilation is aborted. (xx represents 
a particular number useful only to your supplier.) 


FATAL ERROR 9020: Compiler error in U.D.S.M.: Not 
enough memory. 


FATAL: ERROR 9021: Compiler error in U.D.S.M.: Not 
enough disk space. 


FATAL ERROR 9022: Compiler error in U.D.S.M.: Bad 
object. 


FATAL ERROR 9023: U.D.S.M. System error: system 
information 


FATAL ERROR 9201: Unknown control, control, in 
invocation group. 

The “invocation group” includes the invocation line and the initial set of primary 
control lines in the source file. Compilation is aborted. 


FATAL ERROR 9202: Missing ENDIF control. 


FATAL ERROR 92@xx: Compiler error in scanner. 


Compilation is aborted. Contact your supplier. 


FATAL ERROR 93xx: Compiler error in parser. 
Compilation is aborted. Contact your supplier. 

FATAL ERROR 9501: Compiler error in Semantic 
Analyzer (n, m). 


Compilation is aborted. Contact your supplier. (n and m are compiler debug 
information. ) , 


13—20 


Pascal-86 User’s Guide Errors and Warnings 


FATAL ERROR 9599: Compiler error in Semantic 
Analyzer (n). 


Compilation is aborted. Contact your supplier. (n is compiler debug information.) 
FATAL ERROR 9Sxx: Compiler error in Semantic 
Analyzer. 

Compilation is aborted. Contact your supplier. 

FATAL ERROR 96xx: Compiler error in Cross-Reference 
Generator. 


Compilation is aborted. Contact your supplier. 


FATAL ERROR 98xx: Compiler error in Code Generator. 


Compilation is aborted. Contact your supplier. 


FATAL ERROR 99xx: Compiler error in Object Module 
Generator. 


Compilation is aborted. Contact your supplier. 


FATAL ERROR 9902: Compiler error in Object Module 
Generator (n). 


FATAL ERROR 9904: Compiler-generated label address 
error. 
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RUN-TIME EXCEPTIONS 


This chapter describes all of the run-time exceptions (errors) that are handled by the 
run-time software unique to Pascal-86. 


Run-time messages are coded by number and are listed in this chapter in numeric 
order by their code numbers so that you can easily look up any message you received. 


A masked floating-point run-time error can occur without stopping the program. When 
a run-time error other than a masked floating-point error occurs, the default 
Pascal-86 run-time system stops running the program, prints a run-time exception 
message, and returns control to the operating system. 


There are three types of run-time exceptions: non-floating-point run-time exceptions 
(14.1), floating-point function exceptions (14.2), and floating-point 8087 exceptions 
(14.2). 


14.1 Run-Time System Exceptions 


There are several types of non-floating-point run-time exceptions: I/O, operating 
environment, and range exceptions, to name a few. 


Run-time system exception messages take the following form: 


**#* RUN-TIME type EXCEPTION: code 
***# NEAR LOCATION Ahhh: hhbhH 
*#*# JOB ABORTED. 


The type of the run-time exception can be one of the following types: 


PASCAL I/0 

1/0 

OPERATING ENVIRONMENT 
INTEGER ZERO DIVIDE 
INTEGER OVERFLOW 
RANGE 

CHECK 

PASCAL SET 


For each type, the code is the hexadecimal exception code number for each message. 
(If no type is given, refer to the exception conditions for your specific operating 
system.) The hexadecimal locations hhhhH:hhhhH are the values in CS:IP after control 
returns from the run-time system to the program. Each message is described in the 
subsequent sections by type and by code number. 


14.1.1 Input/Output Exceptions 


RUN-TIME PASCAL 1/0 EXCEPTION: 1101H 


An attempt to open a file was not successful. The file may not exist. 


RUN-TIME PASCAL I/0 EXCEPTION: 1102H 


The first format specifier was negative or zero, but not positive as required. 
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PASCAL I1/Q EXCEPTION: 1103H 


The second format specifier was negative or zero, but not positive as required. 


RUN-TIME PASCAL I/0 EXCEPTION: 1104H 


An input operation was attempted on a file opened for output. 


RUN-TIME PASCAL I/0 EXCEPTION: 1105H 


An output operation was attempted on a file opened for input. 


RUN-TIME PASCAL I/0 EXCEPTION: 1106H 
The record number on a SEEKREAD or SEEKWRITE is negative. 


RUN-TIME PASCAL I/0 EXCEPTION: 1108H 
Attempt to open a text file for random I/O. 


RUN-TIME PASCAL I/0 EXCEPTION: 1109H 


A Random I/O operation was attempted on a non-random file. 


RUN-TIME PASCAL I/0 EXCEPTION: 110AH 
The ENDPOSITION function was called with an empty file. 


RUN-TIME PASCAL I/O EXCEPTION: 110BH 
A SEEKWRITE was attempted beyond the end of the file. 


RUN-TIME PASCAL I/0 EXCEPTION: 1110H 
SETRANDOM was called with a file that already was opened. 


RUN-TIME I/0 EXCEPTION: 9102H 


The end of a file was encountered when illegal. 


RUN-TIME I/Q0 EXCEPTION: 9103H 

The integer field on input does not conform to the Pascal signed decimal integer 
syntax. 

RUN-TIME 1/0 EXCEPTION: 9104H 

The floating-point field on input does not conform to the Pascal run-time signed 
number syntax. 

RUN-TIME I/0 EXCEPTION: 9105H 

The integer field on text file input defined a signed integer which could not fit into 
the INTEGER range (— 32767 to +32767). 

RUN-TIME I1/70 EXCEPTION: 9106H 

The integer field on text file input defined a signed integer that could not fit into the 
LONGINT range (— 2,147,483,647 to +2,147,483,647). 

RUN-TIME 1/0 EXCEPTION: 9107H 


The floating-point field on text file input defined a signed number that was too large 
(overflow) to fit into the TEMPREAL range (—2'®84 to 2'68¢), 
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RUN-TIME I/Q0 EXCEPTION: 9108H 


The floating point field on text file input defined a signed number that was too small 
(underflow) to fit into the TEMPREAL range (— 2~'983 to 2716383). 


RUN-TIME I/Q EXCEPTION: 9109H 


The integer field or text file output defined a signed integer that could not fit into 
the BYTE range (— 127 to +127). 


14.1.2 Operating Environment and Heap Exceptions 


RUN-TIME OPERATING ENVIRONMENT EXCEPTION: 1300H 


Programs that use floating-point functions must be linked to the run-time library 
CEL87.LIB. If your program is linked to EH87.LIB but not to CEL87.LIB, this 
exception will be reported when the first floating-point function is accessed. 


RUN-TIME OPERATING ENVIRONMENT EXCEPTION: 1501H 


Invalid file preconnection syntax on the program’s command line. 


RUN-TIME HEAP EXCEPTION: 1151H 


The pointer passed to the DISPOSE function had an illegal value. An illegal value 
occurs if the pointer was not initialized, was assigned a NIL value, was already 
DISPOSEd, or was not returned by NEW. 


RUN-TIME HEAP EXCEPTION: 1152H 


There is insufficient free memory available to fill the request. 


RUN-TIME HEAP EXCEPTION: 1153H 
The SMALL heap size returned by TQGETSMALLHEAP is less than 16 bytes. 


14.1.3 Integer Exceptions 


RUN-TIME INTEGER ZERO DIVIDE EXCEPTION: 8000H 


There was an attempt to divide by zero. 


RUN-TIME INTEGER QVERFLOW EXCEPTION: 8001H 


A signed integer overflow occurred. 


14.1.4 Set Exceptions 


RUN-TIME PASCAL SET EXCEPTION: 1131H 


A set on the stack could not be represented in memory. Sets cannot have more than 
32767 elements. 


RUN-TIME PASCAL SET EXCEPTION: 1132H 


The stack overflowed on a set operation. Either the set is too big or the set operation 
is too complex. 


RUN-TIME PASCAL SET EXCEPTION: 1133H 


A set with a size of zero was used in a set function. 
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RUN-TIME PASCAL SET EXCEPTION: 1134H 


An attempt was made to add an invalid member to a set. All set elements must be 
compatible with the base type of the set. 


RUN-TIME PASCAL SET EXCEPTION: 1135H 


The result of a union operation was too large. 


14.1.5 Compiler Range and Check Errors 
RUN-TIME RANGE EXCEPTION: 8006H 


RUN-TIME CHECK EXCEPTION: 8017H 


The program was compiled with the CHECK control. At run time, the compiled code 
checks for out-of-range assignments, out-of-range array subscripts, stack and integer 
overflow, and invalid pointer references. These conditions acknowledge extra checks 
the compiler generated in-line. The run-time check exception may also occur when 
the appropriate 8087 interface library was omitted from the program link list. 


14.2 Floating-Point Function Exceptions and 8087 
Exceptions 


Two kinds of real (floating-point) exceptions may occur: those resulting from the 
execution of predefined floating-point functions, and those resulting directly from 
floating-point arithmetic operations performed by the 8087 Numeric Data Processor 
or its emulator. 


Floating-point function exception messages take the following form: 

*** RUN-TIME FLOATING-POINT function EXCEPTION status 
*** NEAR LOCATION AhhhhH 

*** JOB ABORTED. 


The function can be one of the following: 


The status is the hexadecimal value of the 3087 STATUS register, and the location 
hhhhh is the 20-bit physical address of the location of the exception. The 8087 
STATUS values are described in the iAPX 86,88 User’s Manual. General floating- 
point exceptions are discussed in the next section. 
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Floating-point 8087 exception messages take the following form: 


*** RUN-TIME 8087 EXCEPTION Status 
*** INSTR OPCODE op 

*** MEMOP ADDRESS Ahhhhi 

*** NEAR LOCATION hAhhhhH 

*** JOB ABORTED. 


The status is the hexadecimal value in the 8087 STATUS register. The op is the 
hexadecimal value of the 8087 instruction opcode register. The hhhhhH is a 
hexadecimal 20-bit physical address. The 8087 registers are described in the iAPX 
86,88 User’s Manual. 


As discussed in 7.1.8, there are six possible real arithmetic error, or exception, condi- 
tions: invalid operation, denormalized operand, zero divide, overflow, underflow, and 
precision. 


This section first discusses the meaning of the six types of exceptions, what conditions 
may cause them, and the actions performed by the chip or emulator when the excep- 
tions occur with the corresponding exception mask bits set; i.e., with the exceptions 
masked (The iAPX 86,88 User’s Manual discusses the unmasked case.) 


Following this are explanations of rounding, denormalized and unnormalized numbers, 
unnormalized arithmetic, and infinity arithmetic. These discussions should suffice for 
Pascal-86 users. However, if you are also writing modules in other languages to inter- 
face with the 8087 chip or emulator, you may wish to see the iAPX 86,88 User’s 
Manual for a fuller explanation of some topics. 


NOTE 


Pascal-86 presets certain 8087 modes (explained in the iAPX 86,88 User's 
Manual) to the following recommended settings: 


¢ The infinity arithmetic mode is Projective. 
¢ The rounding mode is Round-to-Nearest. 
¢ The precision mode for intermediate results is 64 bits. 


e All 8087 exception conditions are masked except Invalid Operation, 
which is unmasked. 


e The 8087 interrupt enable mask bit is zero (interrupt enabled). 


You cannot change the infinity arithmetic, rounding, or precision mode 
settings from a Pascal-86 program. You may, however, change the exception 
mask bits or the interrupt enable mask bit using the MASK8087ERRORS 
procedure (8.10.2). The following discussions assume that you have not 
changed any of these settings. If you use any of the functions, SIN, COS, 
TAN, ARCSIN, ARCTAN, EXP, LN, ROUND, or LROUND, you cannot 
unmask the precision error. The precision exception bit in the 8087 STATUS 
word becomes undefined upon return from these functions. 


The exception descriptions here refer to some topics not yet discussed, such as denor- 
malized numbers, unnormalized numbers, rounding, and infinity arithmetic. For 
explanations of these items, see 14.2.1. 


Invalid Operation 


An invalid operation exception occurs when either an operand is invalid for the speci- 
fied operation, or the operation itself is invalid. This exception generally indicates a 
program error; so even if you mask all other exceptions, it is recommended that you 
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leave Invalid Operation unmasked. An Invalid Operation exception is signalled when 
any one of the following conditions occurs: 


¢ One or more of the operands is a trapping NaN. 


¢ One or more of the operands in the computation sequence was unnormalized or 
denormalized, and the result cannot be guaranteed, because significant informa- 
tion was lost. (Not all operations on unnormalized or denormalized numbers result 
in loss of significant information; those that do not will not signal Invalid Opera- 
tion. ) 


¢« Any of the _ following operations is attempted: infinity+infinity, 
infinity — infinity, 0.0*infinity, infinity*0.0, infinity/infinity, 0.0/0.0, valid 
number/unnormalized number, valid number/denormalized number, or 0.0/ 
pseudo-zero (a special representation, described in the iAPX 86,88 User’s 


Manual). 

¢ In TRUNC or ROUND, the operand is too large to fit into the INTEGER 
format. 

¢ In LTRUNC or LROUND, the operand 1s too large to fit into the LONGINT 
format. 


¢ In comparisons via any of the relational operators <, <, >, or =, infinity is 
compared to some value other than infinity. 


The following are specific cases that cause invalid operation exceptions: 


¢ SQRT (x) where x is a negative number, denormal number, unnormal number, 
or + infinity (in projective mode). 


e SIN (x), COS (x), TAN (x) where x is + infinity, or bd=2-° and unnormal 


¢ ARCSIN (x), ARCCOS (x) where x is + infinity, bd=2-° and unnormal, or 
b> 1 


¢« ARCTAN (x) where Ii=2~° and unnormal. 
¢ EXP(x) where x is + infinity (in projective mode) or lkd=2~-° and unnormal. 


¢ LN(x) where x is a negative number, a denormal number (and the Denormalized 
Exception mask, AT87DENR, is set), + infinity (in projective mode), or Wi=2-® 
and unnormal. 


If the Invalid Operation exception is masked, the result (if a real result is expected) 
is a NaN. For a comparison, the result is unordered. 


Denormalized Operand 


This exception arises when one or more of the operands is a denormalized number. 
This could occur if you used uninitialized data or if a masked underflow exception 
occurred in a previous operation. If this exception is masked, correct unnormalized 
arithmetic is performed, as described in 14.2.1. 


Zero Divide 
In a division operation, if the divisor is a normal zero and the dividend is a finite 


nonzero number, then the Zero Divide exception occurs. If this exception is masked, 
the result is infinity. LN(O) and TAN of PI/2 also cause zero divide exceptions. 


Overflow 
If a rounded result is finite but its exponent is too large to represent in the REAL 


format, the Overflow exception occurs. If this exception is masked, an overflow yields 
infinity, and the Precision exception also occurs. 
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Underflow 


The Underflow exception occurs when either of the following conditions arises: 


¢ A rounded result has too small an exponent to be represented in the REAL format 
without normalizing. 


¢ An intermediate product or quotient, where neither operand is a normal zero, is 
indistinguishable from a normal zero. (This cannot occur with normalized 
operands. ) 


If the Underflow exception is masked, the result is a correctly rounded denormalized 
number or zero. 


Precision 


If the correctly rounded result of an operation is not the same as the unrounded value, 
the Precision exception occurs. If this exception is masked, no special action is 
performed; the correctly rounded result is delivered. 


14.2.1 Floating-Point Topics 


The following section explains topics mentioned in the exception discussions just given. 
If you are using Pascal-86 only, this section should provide the background you need. 
If you are changing the 8087 modes preset for Pascal-86, see the iAPX 86,88 User’s 
Manual. 


Rounding 


In Pascal-86, all implicit rounding is done in Round-to-Nearest mode. In this mode, 
the operand is rounded to the nearest representable value, or to the nearest even 
number in case of a tie. The rounding mode determines the sign assigned to zero: if 
x is finite, then x-x=x+(—x)=+0 in Round-to-Nearest mode. However, 
x +x =x—(-—x) always has the same sign as x even when x is zero. 


Normalized, Denormalized, and Unnormalized Numbers 


In a normal zero, the exponent is zero and all significant bits are zero. A value is 
normalized if it is a normal zero, or if the leading bit of the significand is one and 
the exponent is greater than zero. A denormalized number is one that has a zero 
exponent and a zero explicit or implicit leading bit, but is not a normal zero. An 
unnormalized number is one that has an exponent greater than zero and a zero explicit 
leading bit (the term unnormalized applies only to numbers in the TEMPREAL 
format). 


Note that the 8087 does not perform normalized arithmetic; to implement the IEEE 
Standard normalized mode of arithmetic, you must link in the EH87.LIB support 
library (see 12.2.2) and unmask the D exception. If the library is linked in but the D 
exception stays masked, normalized arithmetic will not be implemented. 


When all operands have been normalized, the operations are performed as if the 
precision were infinite, before rounding occurs as described in the previous section. 
The following section describes the result if one or more of the operands are not 
normalized. If one operand is a NaN, the result, if any, is that NaN; and if more 
than one operand is a NaN, the result, if any, is the NaN that is largest in magnitude. 
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Unnormalized Arithmetic 


Due to the nature of computer arithmetic on very large or very small numbers, there 
are some cases in which information will be lost. The 8087 processor and its emulator 
are designed to preserve as much information as possible from a computation, even 
when all of the information cannot be saved. Unnormalized arithmetic performed by 
Pascal-86 programs serves this purpose. When unnormalized numbers appear during 
a computation sequence and generate more unnormalized numbers rather than disap- 
pearing immediately, their presence indicates that some information has been lost 
(that is, greater precision could not be guaranteed), but their values still give some 
information about the computational results. 


The following rules apply when at least one operand is not normalized, provided the 
Invalid Operation exception does not occur. They specify when normalization is to 
occur and the resulting exponent value if normalization does not occur. Rounding 
and the handling of overflow and underflow are performed after the assignments 
shown below. Such rounding and overflow/underflow handling may modify the results. 
In the following, x and y are real expressions, and expon(x) refers to the exponent 
of x. 


Assignment (z:=x): expon(z)=expon(x). 

Add /subtract (z:=x+y): Let m=max(expon(x),expon(y)). If at least one of the 
operands having exponent m is normalized, then z is normalized 
before rounding. Otherwise expon(z)=m. 


Multiply (z:=x*y): expon(z)=expon(x)+expon(y). 


Divide (z:=x/y): expon(z)=expon(x)—expon(y)—1 when y is normal- 
ized and nonzero. 


Integer part (z:=the temporary real value obtained by applying the Round-to- 
Nearest rule to x): if expon(x) is so large that x must already be 
an integer regardless of its significand bits, then z is identically x. 
Otherwise, z is normalized. 


Comparison Comparisons are made as if both operands had been normalized 
first. 


Infinity Arithmetic 

The representation of infinity is a temporary real value that behaves like an infinite 
value in real computations. In the infinity arithmetic mode used in Pascal-86 (Projec- 
tive mode), +infinity= — infinity. 


The sign bit of the product or quotient of two real numbers is the exclusive OR of 
the operands’ sign bits, even when the operand is zero or infinity. 
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Pascal-86 conforms to the ANSI/IEEE770X3.97—1983. However, it may differ 
slightly from other Pascal dialects you have been using. The various Pascal imple- 
mentations in use differ primarily where weaknesses in Pascal have been discovered; 
the Intel extensions that are part of Pascal-86 are examples of attempts to make up 
for these weaknesses. Implementations also differ where there is ambiguity in Jensen 
and Wirth’s Pascal User Manual and Report. 


This appendix provides information about such differences in order to help you use 
existing Pascal programs, originally written for other systems, in your iAPX 86 and 
iAPX 88 microcomputer applications. This information indicates what parts of your 
programs need to be modified before you compile, link, locate, and run them as Pascal- 
86 programs. The first part of this appendix also lists the extra Pascal-86 features 
(extensions) you may use to improve your programs. 


NOTE 


The Pascal-80 User’s Guide and some other publications refer to the Pascal 
of Jensen and Wirth’s Pascal User Manual and Report as “standard Pascal.” 
This is true because until the recent standardization effort, Jensen and Wirth 
Pascal was the de facto standard. In the manual you‘are reading, ‘“‘standard 
Pascal” refers to the ISO Draft Proposal. 


A.1 Intel Extensions to Standard Pascal 


This section lists features in Pascal-86 that are not part of standard Pascal as speci- 
fied in the ANSI /ITEEE770X3.97—1983. Following each listed feature is a reference 
to the chapter or section of this manual where the feature is described. 


Most of these extensions are flagged by the compiler when the NOEXTENSIONS 
control (10.3.7) is active. However, those marked by an asterisk * are not flagged 
under NOEXTENSIONS. 


A.1.1 Major Extensions 


e Separate compilation facilities, including module headings, interface specifica- 
tions, and headings (4.2.2, 4.2.3, 4.2.4) 


¢ The predefined types WORD, LONGINT, LONGREAL, and TEMPREAL 
(5.3.1) and the built-in functions LORD, WRD, LTRUNC, and LROUND (8.1, 
8.4) 


¢ The port input and output procedures INBYT, INWRD, OUTBYT, and 
OUTWRD (8.8) 


¢ The interrupt control procedures SETINTERRUPT, ENABLEINTERRUPTS, 
DISABLEINTERRUPTS, and CAUSEINTERRUPT (8.9) 
A.1.2 Minor Extensions 


¢ Interpretation of the tab character as a logical blank (3.2)* 


¢  Octal-, binary-, and hexadecimal-based integer constants (3.3.2) 


APPENDIX A 
DIFFERENCES BETWEEN PASCAL-86 
AND OTHER VERSIONS OF PASCAL 
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e Real constants outside the range of REAL values (3.3.3)* 
e Labels larger than 9999 (3.3.4) 
¢ String constants continued across input record (input line) boundaries (3.3.5) 


¢ Single-character constants used as type PACKED ARRAY [1..1] OF CHAR 
(3.3.5, 5.3.2) 


e Indexed references to components of a string constant (5.2) 


¢« Use of an identifier, including a procedure or function identifier, before it is 
defined (5.3, 6.5)* 


¢ The predefined CHAR constants CR (carriage return) and LF (line feed) (5.3.1, 
5.3.2) 


e« Ina variant record, case constants that do not map onto the range of the tag type 
(5.3.2) 


¢ Factored procedural and functional parameter lists; that is, more than one identi- 
fier following the PROCEDURE or FUNCTION keyword in the parameter list 
syntax (6.4.1) 


¢ Variable parameters of the predefined type BYTES (6.4.4) 


e Specification of a parameter list (and result type, for a function) in the heading 
of a procedure or function previously declared to bb FORWARD (6.5) 


¢ Ordinal Type Transfer Functions (with extended types) (Chapter 7 and 8). 


¢ Support of the proposed IEEE standard for floating-point arithmetic (7.1.8, 14.6, 
14.7)* 


¢ OTHERWISE clause in CASE statement (7.2.5) 
¢ The arithmetic functions TAN, ARCSIN, and ARCCOS (8.3) 


¢ Second argument to RESET and REWRITE, to designate a physical file (8.7.1, 
8.7.2) 


¢ File preconnection facility (8.7.1, 8.7.2, 12.4.1)* 
¢ More lenient format for real number input to READ and READLN (8.7.6)* 


¢ READ and READLN input of plus infinity, minus infinity, and the indefinite 
NaN (8.7.6)* 


¢ WRITE and WRITELN output of plus infinity, minus infinity, and NaN’s 
(8.7.6)* 
e The 8087 procedures GET8087ERRORS and MASK8087ERRORS (8.10) 


¢ The predefined types AT87ERRORS and AT87EXCEPTIONS and the prede- 
‘ fined constants AT87NVLD, AT87DENR, AT87ZDIV, AT870VER, 
AT87UNDR, AT87PRCN, AT87RSVD, and AT87MASK (8.10) 


e All compiler controls in the source text (Chapter 10) (Only general controls will 
be flagged under NOEXTENSIONS; the initial set of control lines may be 
considered the logical extension of the compiler invocation line, and therefore not 
part of the Pascal program per se.) 


A.2 Differences Between UCSD Pascal (Pascal-80) and 
Standard Pascal 


UCSD Pascal is a commonly used Pascal dialect; Intel’s interpreted Pascal-80 
language is an implementation of UCSD Pascal. UCSD Pascal differs from 
Pascal-86 in a number of ways, most of them are differences between UCSD Pascal 
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and standard Pascal. The following list explains the features that differ. The section 
number reference following each description of a Pascal-86 feature denotes the section 
of this manual which gives further information. 


e In UCSD Pascal, the comment bracket symbol { must match the bracket symbol 
} , and (* must match *). In Pascal-86, the matching of comment brackets follows 
standard Pascal: either left bracket symbol matches either right bracket symbol. 
(3.2.1) 


¢ In UCSD Pascal, program parameters are ignored; INPUT, OUTPUT, and 
KEYBOARD are always defined and opened. In Pascal-86, program parameters 
are implemented according to standard Pascal, with the addition of the precon- 
nection facility. (4.2.1, 5.3.2) 


¢ UCSD Pascal provides a dynamic string data type and several string manipula- 
tion procedures that operate on this type. In Pascal-86, strings are implemented 
according to standard Pascal; that is, as fixed-length packed arrays of characters. 
(533.2) 


¢ In UCSD Pascal, the maximum size of a set is 255 words, or 4080 elements. In 
Pascal-86, the maximum size of a set is 32767 elements. (5.3.2) 


¢ UCSD Pascal provides an INTERACTIVE file type for console input and output. 
Pascal-86 treats TEXT and FILE OF CHAR file types as interactive files. (5.3.2, 
8.7) 


¢ UCSD Pascal provides untyped files for device-dependent input and output. 
Pascal-86 provides typed files only, per standard Pascal. (5.3.2, 8.7) 


¢ In UCSD Pascal, equality comparison between similar records and arrays is 
permitted. In Pascal-86, per standard Pascal, such comparisons are not permitted. 
(5.3.4) 


¢ UCSD Pascal does not support procedural and functional parameters. Pascal-86 
does support them, in accordance with standard Pascal. (6.4) 


e If the case value on execution of a CASE statement does not match any of the 
case constants given, UCSD Pascal will not register an error. Pascal-86 does 
register an error unless an OTHERWISE clause (which may be empty) is present. 
(7.2.5) 


e UCSD Pascal does not permit out-of-block GOTO statements. Pascal-86 does 
permit them, in accordance with the rules of standard Pascal. (7.2.10) 


e UCSD Pascal provides an EXIT statement for exiting prematurely from a proce- 
dure or function. Pascal-86, in accordance with standard Pascal, does not provide 
such a statement. 


¢ UCSD Pascal supports the built-in procedures MARK and RELEASE in place 
of DISPOSE, for deallocation of memory allotted to dynamic variables.Pascal- 
86 supports DISPOSE in accordance with standard Pascal. (8.5.2) 


¢ UCSD Pascal does not support the built-in procedures PACK and UNPACK. 
Pascal-86 supports PACK and UNPACK in accordance with standard Pascal. 
(8.6) 


¢ UCSD Pascal supports random access to files by means of the SEEK procedure 
and a position parameter to READ and WRITE. Pascal-86 supports sequential 
files only, in accordance with standard Pascal. (8.7) 


¢ In UCSD Pascal, lazy I/O is used for operations on INTERACTIVE files. In 
Pascal-86, lazy I/O is used for operations on files of type TEXT and unpacked 
FILE OF CHAR. (8.7) 


e In UCSD Pascal, all compiler controls within the source program are enclosed 
within comment brackets. In Pascal-86, controls are not enclosed within comment 
brackets, but appear on control lines beginning with a dollar sign in the leftmost 
column. (10) 
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Both UCSD Pascal and Pascal-86 extend RESET and REWRITE to take a second 
parameter, which supplies the external name for a pre-existing file. (8.7) 


A.3 Areas Where Versions of Pascal Differ 


Separate Compilation. Standard Pascal assumes a monolithic compilation structure, 
which is untenable on microcomputers and many minicomputers. A common exten- 
sion is to permit an external procedure to be defined via an EXTERN directive. This 
directive may be used to communicate with separately compiled Pascal procedures or 
with modules written in other languages. Pascal-86 uses an interface specification, so 
that the definition of data and procedures is physically written down in only one 
place. Elaborate systems for creating the appropriate block structure environment to 
recompile a single Pascal procedure have also been devised. 


Treatment of Program Parameters. The Report does not clearly state the exact 
function of program parameters, so naturally there is disagreement on this subject. 
Some compilers ignore program parameters entirely, whereas others rely on the 
program parameters as the sole link to the program environment. 


Strings. Character strings are another weak point in the Pascal language. The UCSD 
Pascal STRING type, which is similar to a string in PL/I, is the most popular method 
of extension. Some purists insist that strings should be incorporated into the language 
as a file type. More elaborate implementations are usually avoided because of their 
overhead. 


Size of Sets. The range of values in all data types varies from implementation to 
implementation, but the size of sets is usually the most restrictive. You can usually 
expect that SET OF CHAR will be supported; however, there are some notable cases 
in which it is not supported. 


Type Compatibility. The rules for type compatibility are not rigorously defined by 
the Report or by the User Manual. Pascal-86, following the ISO Standard, enforces 
the strictest set of rules possible. 


Procedural and Functional Parameters. Procedural and functional parameters are 
expensive to implement, and therefore are often omitted. Compilers also vary 
concerning which of the predefined functions and procedures, if any, may be passed 
as arguments. 


Out-of-Block GOTO’s. Out-of-block GOTO’s are expensive to implement and seldom 
used, so they are frequently not supported. 


MARK and RELEASE vs. DISPOSE. MARK and RELEASE are much easier to 
implement than DISPOSE, and so are favored by the smaller implementations for 
microcomputers and minicomputers. 


Dynamic Association of Logical Files with Physical Files. The Pascal-86 extension 
to RESET and REWRITE is the most popular method for dynamic association of 
file variables with physical files. 


Interactive I/O. The read-ahead feature of standard Pascal files does not work well 
with interactive devices—the console operator gets a prompt for input before the 
program can write instructions on how to answer the prompt. The favored solution to 
this problem is to use lazy input, which defers the action of a GET until the buffer 
variable is actually interrogated. UCSD Pascal uses lazy input only on files of the 
special INTERACTIVE type. In CDC implementations, extra syntax in the program 
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heading identifies those files that are to be accessed using lazy input. Pascal-86 uses 
lazy input on all files declared as TEXT or FILE OF CHAR. 


Compiler Controls. Since there is no mention of compiler controls in the Report, the 
User Manual, or the ISO Standard, it is not surprising that compilers vary both in 
the variety of controls offered and the method of specifying the controls. You should 
plan on changing all controls when you transport your Pascal programs to a new 
compiler. 


APPENDIX B 
PROCESSOR-DEPENDENT 


LANGUAGE FEATURES 


The following Pascal-86 language features are provided especially for use in iAPX 
86,88 microprocessor applications. After each listed feature is a reference to the 
chapter or section of this manual where the feature is described. 


¢ Double (LONGREAL) and extended (TEMPREAL) precision for floating- 
point numbers, and extended precision for all real-type expressions and interme- 
diate results (5.3.1, 7.1.4, 7.1.8) 


¢ The Denormalized Operand exception in real arithmetic (7.1.8) 


¢ The port input and output procedures INBYT, INWRD, OUTBYT, and 
OUTWRD (8.8) 


e The interrupt control procedures SETINTERRUPT, ENABLEINTERRUPTS, 
DISABLEINTERRUPTS, and CAUSEINTERRUPT (8.9) 


¢ The 8087 procedures GET8087ERRORS and MASK8087ERRORS (8.10) 


e The predefined types AT87ERRORS and AT87EXCEPTIONS and the prede- 
fined constants AT87NVLD, AT87DENR, AT87ZDIV, AT8&70OVER, 
AT87UNDR, AT87PRCN, AT87RSVD, and AT87MASK (8.10) 


¢ PQCLOSE describes a method for closing files in Pascal, Appendix B. 
¢« RANDOM ACCESS I/O permits access to any file in Pascal, Appendix B. 


B.1 PQCLOSE, Closing Files in Pascal 


Standard Pascal does not provide a method to close a file. On systems such as Series 
III, which limit the number of files that may be open at one time, this might pose a 
problem. If you encounter a problem, the run-time system for Pascal provides a 


procedure to close a file. 


To avoid deleting a file, read this entire section before executing PQCLOSE. 


The PQCLOSE procedure is not a predefined procedure in Pascal; it must be declared 
in the interface specification of the module. The declaration should be as follows: 


PUBLIC PQCLOSE; 
PROCEDURE PQCLOSECVAR F : file type>) ; 


where 
< file type > is the type of file you choose to close. 


If you have more than one type of file that you choose to close in the same module, 
use the following declaration: 


PUBLIC PQCLOSE; 
PROCEDURE PQCLOSECVAR F : BYTES); 


Files that have not been declared in the program heading or do not have a physical 
file name specified on the RESET or REWRITE are considered temporary files and 
will be deleted automatically either when closed or at program termination. 
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B.2 Random Access I/O 


The six procedures and functions described in this section allow a Pascal program to 
access any record in a file without explicitly reading all records before the desired 
record is accessed. It is also possible to update a record without affecting any of the 
other records in the file. 


The procedures (SETRANDOM, SEEKREAD, SEEKWRITE) and the functions 
(POSITION, ENDPOSITION, and EMPTY) that implement random I/O in Pascal 
are applicable to any file type except TEXT. To use the random access feature, you 
must declare the procedures SETRANDOM, SEEKREAD, SEEKWRITE, 
POSITION, ENDPOSITION, and EMPTY in the interface section of your program. 


All of the procedures and functions use the standard Pascal calling sequence. 


B.2.1 SETRANDOM 
Call this procedure before the RESET or REWRITE on the file. 


The purpose of SETRANDOM is to inform the run-time system that the file will be 
accessed randomly. As a result, subsequent RESET or REWRITE on the file will 
open the file for update rather than read-only or write-only mode. 


After the RESET or REWRITE is performed, the file will be positioned at record 
number 0. 


Procedure SETRANDOMC var random file: BYTES); 


where 


random file is a Pascal file variable. 


An exception will occur if a RESET or REWRITE already has been performed on 
the file unless it has been closed by PQCLOSE. Also, an exception will occur when 
the RESET or REWRITE is performed when the file is of type TEXT. 


B.2.2 SEEKREAD 


This procedure moves the current file pointer to the specified record in the file and 
sets the file mode to allow an input operation. The file’s buffer variable is not changed. 
If the specified record number is beyond the end of the file, then the file will be 
positioned at the end, and the end of file flag will be set to true. The first record in a 
file is record number 0. 


Procedure SEEKREAD(C var random-file: BYTES; 
rec-num: LONGINT); 


where 
random-tile is a file that has been opened for random access. 
rec-num is a non-negative LONGINT value that specifies the record 


at which the file is to be positioned. 


An exception occurs if rec-num is negative or if the file has not been opened for 
random access. 
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B.2.3 SEEKWRITE 


This procedure moves the current file pointer to the specified record in the file and 
sets the file mode to allow an output operation. The file’s buffer variable is not 
changed. If the specified record number is beyond the end of the file, an exception 
will occur. 


Procedure SEEKWRITEC var random-file: BYTES 
rec-num: LONGINT)3 


where 
random-file is a file that has been opened for random access. 
rec-num is a non-negative LONGINT value that specifies the record 


at which the file is to be positioned. 


An exception will occur if rec-num is negative or if the file has not been opened for 
random access. 


B.2.4 POSITION 
This function returns the record number at which the file is currently positioned. 
FUNCTION POSITIONC var random-file: BYTES) LONGINT; 


where 


random-file is a file that has been opened for random access. 


An exception will occur if the file is not opened for random access. 


B.2.5 ENDPOSITION 
This function returns the record number of the last record in the file. 
FUNCTION ENDPOSITIONC var random-file: BYTE):LONGINT 


where 


random-file is a file that has been opened for random access. 
An exception will occur if the file is not opened for random access or if the file is 
empty. 
B.2.6 EMPTY 


This function returns TRUE if a random access file contains no records, FALSE 
otherwise. 


FUNCTION EMPTYCvar random-file): BOOLEAN; 


where 


random-file is a Pascal file variable that has been opened for random 
access. 


An exception will occur if the file is not opened for random access. 


APPENDIX C 


COMPILER CAPACITY 


Proponents of structured programming recommend making modules and program 
objects small so they are easier to understand and manage. Nevertheless, the 
Pascal-86 compiler can translate modules of considerable size, as indicated below. 
Following each listed item is a reference to the chapter or section of this manual 
where that language feature is described. 


An array that requires more than 65535 bytes of memory for data storage will 
be placed in more than one data segment. All other types of variables must fit 
into a single memory segment (65535 bytes) (4.2, 5.1, Appendix H). 


A constant or module may occupy up to 65535 bytes (4.2, 5.1, Appendix H). 


Program, module, and subsystem identifiers can be up to 31 characters long. All 
other PUBLIC identifiers can be up to 40 characters long (4.2). 


An index type for an array is an ordinal type whose values are a subset of the set 
of whole numbers. In Pascal-86 these values are four bytes long and lie within 
the range from — 2,147,483,647 to + 2,147,483,647. 


The number of characters in a string is limited only by memory size (5.3.2). 


A set may have a maximum of 32767 elements, and the ordinal values of set 
members must lie within the INTEGER range (5.3.2). 


An expression may have up to 100 operands (7.1). 


The ordinal value of a case constant in a CASE statement must be in the range 
from —32767 to 65535. Also, in any CASE statement, the difference between 
the largest and the smallest case constants must be less than 1009 (7.2.5). 


A string specifying a physical file must be in a form acceptable to the run-time 
operating system, and it can be up to 45 characters long (8.7.1, 8.7.2, 10.3.7, 
10.3.10, 10.3.14, 10.3.15). 


The amount of memory designated for internal tables ranges from 5K to 64K 
(10.3.20). 


The total space occupied by the run-time stack may be up to 65535 bytes 
(Appendixes J and K). 


The dictionary summary provided in the listing will help to determine how the 
compiler is allocating memory for symbols in the system. In a 128K system, for 


example, the static symbol space is about 4K and more than about 90 symbols 


will cause the dynamic symbol table to spill to disk. In a 192K system, the static 
symbol space is 16K and the dynamic symbol table will spill after about 600 
symbols. 


APPENDIX D 


LANGUAGE SYNTAX SUMMARY 


This appendix presents the syntax of the Pascal-86 language, using the notation that 
appears in the text. 


In this notation, the following conventions apply: 


Keywords, letter symbols, and punctuation symbols that you use verbatim in your 
programs—the terminal symbols of the language—are represented in monospace 
type, in which every character has the same width, just as it does in output media 
such as CRT console displays and printouts. All letters in terminal symbols are 
shown in upper case in the notation; however, you may use either upper case or 
lower case for these symbols in your programs. For example: 


E FOR PROCEDURE 
( TO TYPE 
DO ARRAY 


are all terminal symbols. 


Terms standing for language elements or constructs that are defined elsewhere 
in this notation—in other words, nonterminal symbols—are represented in itali- 
cized lower-case letters in non-monospace type, in which the width of a character 
varies. For example: 


digits variable 
sign expression 
binary-digit statement 


are all nonterminal symbols. 


When two adjacent items must be concatenated, they appear with no space 
between them. A blank space between two items indicates that the two items may 
be separated by one or more Jogical-blanks. For example: 


digits . digits [ E| sign |digits | 


specifies that the first set of digits, the . symbol, and the second set of digits must 
be concatenated, with no blanks between them. Likewise, the E symbol, the sign 
if included, and the third set of digits must be concatenated. 


Optional constructs are enclosed in square brackets set in light type, or in square 
brackets that are taller than a single line. (Square bracket symbols that are part 
of the Pascal-86 language are set in monospace type, a heavier type face, and are 
never taller than a single line of type.) For example, in the construct represented 
by: 


digits . digits [E[sign |digits | 


the first and second sets of digits and the . symbol are required, and the entire 
part following the second set of digits is optional. If this optional part is included, 
the sign may still be omitted. 


Optional constructs that can be repeated a number of times are marked by a 
three-dot ellipsis following the closing square bracket. For example: 


binary-digit[binary-digit]. . . B 


stands for a concatenated sequence of one or more binary-digits followed immedi- 
ately by a B symbol. 
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¢ Alternative constructs are represented as vertically adjacent items separated by 
extra vertical spacing and enclosed between curly braces that are taller than a 
single line of type. When these braces appear, choose any one of the constructs 
enclosed between the braces. For example: 


digits 

binary-digit [binary-digit|. . .B 
octal-digit[octal-digit]. . . Q 
digit [hex-digit]. . .H 


indicates that the construct described may have any one of the four forms listed 
between the large braces. 


¢ Text enclosed between the character sequence (* and the sequence *), when these 


symbols are in light, non-monospace type, is a prose definition of the given 
construct. Such definitions are used when symbolic definitions would be more 
cumbersome. For example: 


(* any uppercase or lowercase letter of the alphabet *) 


is used to avoid listing 52 separate characters vertically between braces. 


¢ The start of a new line in the notation does not mean you must start a new line 


at that point in your program; however, you may do so for readability. For 
example, when you use the construct: 


FOR variable := expression TQ expression 
DO statement 


you need not include a carriage return after the second expression, but in many 
programs doing so makes the statement more readable. 


The gray-shaded portions of the notation denote features that are Intel extensions to 
standard Pascal. 


D.1 Basic Alphabet and Tokens 


letter (* any uppercase or lowercase letter of the alphabet *) 
digit (* any single decimal digit *) 
word-symbol (* any one of the following: AND ARRAY BEGIN 


CASE CONST DIV DO DOWNTO ELSE END 
FILE FOR FUNCTION GOTO IF IN LABEL 
NIL NOT OF OR OTHERWISE 
MATE PROCEDURE PROGRAM 
PUBLTG RECORD REPEAT SET THEN TO 
TYPE UNTIL VAR WHILE WITH *) 


special-symbol (* any one of the following: + - * / = «>» ¢€ >» ¢8 
me £ FT] 4% @@ 5 w & a * * ae TS 
input token 


logical-blank 
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token 


logical-blank 


comment 


non-closure 


identifier 


signed-integer 


sign 


integer 


digits 
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(* any one of the following: identifier, integer, real-number, 
string, special-symbol *) 


(* any one of the following: blank character, carriage return 
character, line feed character, #ab @haracter, comment *) 


he | 
[non-closure]... 
} 


(* any character except (1) a Zright brace, or (2) a star 
that is immediately followed by a right parenthesis *) 


letter 
letter — 

digit 
[ sign]integer 


(* either a plus or a minus sign *) 


digit [digit }... 


signed-real-number 


real-number 


label 


string 


character 


[ sign] real-number 


digits . digits [€E[sign]digits] 
digitsE [ sign] digits 


digits 


wea character|character)..° 


(* any single printable ASCII character other than 
an apostrophe, carriage return, or line feed *) 
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D.2 Modularization and Block Structure 


compilation 


main-module 


program-heading PROGRAM identifier [(€ prog-parameter-list ) | 


block [ label-decl] 
[CONST constant-defn ; [constant-defn ; ]...] 
[TYPE type-defn ; [type-defn ;]...] 
[VAR variable-decl ; [variable-decl ; ]...] 
[proc-or-func ; ]... 
statement-part 


label-decl LABEL /abel [, label]... ; 
proc-or-func procedure-dec! 
function-decl 


prochdg-or-funchdg procedure-heading 
function-heading 


statement-part compouna-statement 


D-4 
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D.3 Constants, Types, and Variables 


constant-defn 


constant 


constant-id 


numeric-constant-id 


type-defn 


type-spec 


type-id 
enumeratea-type 
subrange-type 
ordinal-constant 


ordinal-type 


pointer-type 


array-type 


index-type 
component-type 


record-type 


identifier = constant 


string 

signed-integer 
signed-real-number 
constant-id 

sign numeric-constant-id 


(* an identifier that stands for any constant *) 


(* an identifier that stands for a signed-integer or a signed- 
real-number * ) 


identifier = type-spec 


type-id 
enumerated-type 
subrange-type 
pointer-type 
[PACKED] array-type 
[PACKED] record-type 
[PACKED] set-type 
[PACKED] file-type 


(* an identifier that stands for a type *) 

( identifier [, identifier]... ) 

ordinal-constant ordinal-constant 

(* a constant of an ordinal-type *) 
enumeratea-type 


subrange-type 


(* a type-id that stands for an enumerated-type, a 
, or one of the predefined types INTEGER, 
IGINT, BOOLEAN, or CHAR *) 


t type-id or @ type-id 


ARRAY [  index-type [, index-type]...] OF 
component-type 


ordinal-type 
type-spec 


RECORD 
[ field-list [ ; }] 
END 
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field-list 


field-id 
tagtype-id 
case-const 
set-type 
file-type 
variable-decl 


variable 


entire-variable 
indexed-variable 
field-designator 
buffer-variable 
referenced-variable 
array-variable 
record-variable 
file-variable 


pointer-variable 
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field-id [, field-id]...: type-spec [; 
field-id |, field-id|...: type-spec]... 


[field-id [, field-id|... : type-spec [; 
field-id [, field-id]... : type-spec]...] 
CASE [field-id :] tagtype-id OF 


case-const [, case-const]... : ( [field-list [;]] ) [; 
case-const [, case-const]... : ( [field-list [;]] ))... 
identifier 


(* a type-id that stands for an ordinal-type *) 
ordinal-constant 

SET OF ordinal-type 

FILE OF type-spec 

identifier [, identifier]... : type-spec 


entire-variable 
indexed-variable 
field-designator 
buffer-variable 
referenced-variable 


(* an identifier that stands for a variable *) 
array-variable [ expression [, expression]... | 
record-variable . field-id 

file-variable % or file-variable @ 

pointer-id % or pointer-id @ 

(* a variable of an array type *) 

(* a variable of a record type *) 

(* a variable of a file type *) 


(* a variable of a pointer type *) 


D.4 Procedures and Functions 


procedure-decl 


procedure-heading 


procedure-heading ; 
block 


procedure-heading ; 
FORWARD 


PROCEDURE identifier [€ parameter-list ) | 
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function-decl 


function-heading 
parameter-list 


parameters 
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function-heading ; 
block 


FUNCTION identifier ; 
block 


function-heading ; 
FORWARD 


FUNCTION identifier [(€ parameter-list )] : type-id ; 
parameters [; parameters]... 


identifier [, identifier]... :  type-id 


AR ie 


PROCEDURE identifier | 
[(€ parameter-list ) | 


FUNCTION identifier 
[(€ parameter-list 


D.5 Expressions and Statements 


expression 
simple-expression 
term 


factor 


relational-op 
adding-op 
multiplying-op 
function-designator 


argument 


simple-expression [relational-op simple-expression]| 
[sign] term [adding-op term]... 
factor [ multiplying-op factor]... 


variable 
constant-id 

integer 
real-number 

string 
function-designator 
NIL 


( expression ) 
NOT factor 
[ element [, element]... ] 


(* any one of the following: = <> « » ¢* >» IN *) 
(* any one of the following: + - OR *) 

(* any one of the following: * / DIV MOD AND *) 
function-id [€ argument [, argument]... )] 


expression [: expression [: expression]] 
procedure-id 
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function-id 
procedure-id 
element 
string-constant-id 


statement 


assignment-statement 
procedure-statement 
compouna-statement 
IF-statement 


CASE-statement 


WHILE-statement 


REPEAT-statement 


FOR-statement 


WITH-statement 


GOTO-statement 


(* an identifier that stands for a function *) 

(* an identifier that stands for a procedure *) 
expression [.. expression] 

(* an identifier that stands for a string constant *) 


(* null, or empty, statement *) 
assignment-statement 
procedure-statement 
compouna-statement 
IF-statement 

[label : | CASE-statement 
WHILE-statement 
REPEAT-statement 
FOR-statement 
WITH-statement 
GOTO-statement 


variable expression 
procedure-id [(€ argument [, argument]... )] 


BEGIN statement [; statement]... END 
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IF expression THEN statement [ELSE _ statement] 


CASE expression OF 


[case-const [, case-const]... : statement ; ]... 
case-const [, case-const]... : statement [; ] 
END 


WHILE expression DQ statement 


REPEAT ~ statement [; statement... UNTIL 
expression 
FOR variable := expression T0 expression 


DO statement 


FOR variable := expression DOWNTO expression 


DO statement 
WITH variable [, variable]... DQ statement 


GOTO label 


APPENDIX E 


SYNTAX DIAGRAMS 


This appendix presents the syntax of the Pascal-86 language in the form of syntax 
diagrams, as used in an appendix to Jensen and Wirth’s Pascal User Manual and in 
a number of textbooks on Pascal. 


In these diagrams, every path you can follow, going in the direction of the arrows, 
represents a syntactically correct construct in Pascal-86. Keywords, letter symbols, 
and punctuation symbols that you use verbatim in your programs—the terminal 
symbols of the language—are enclosed in circles or ovals. Terms standing for language 
constructs that are defined in their own syntax diagrams—in other words, nonter- 
minal symbols—are enclosed in rectangular boxes. 


The gray-shaded portions of the diagrams denote features that are Intel extensions 
to standard Pascal. 


identifier 121539-1 


unsigned integer 


121539-2 


unsigned integer O-- unsigned integer 


unsigned real number 121539-3 


Syntax Diagrams 
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unsigned integer 
constant identifier 
unsigned real number 


character 


unsigned constant 


121539-4 


constant identifier 


| unsigned integer 


’ 
unsigned real number 


o Lice le 


constant 121539-5 


simple type 121539-20 
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simple type 


simple type 


type 121539-6 


Q——_- 


field list 


field list 121539-7 


Syntax Diagrams 


variable identifier 


field identifier 


O-- expression 


field identifier 
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variable 121539-8 
procedure identifier 
i a 
Ome o 
factor 121539-9 


E-4 
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ie a die ai 


term 121539-10 


term 


he i hs 


simple expression 121539-11 


simple expression 


simple expression 


expression 121539-12 


type identifier ( }——- 


parameter list 


type identifier 


| 


FUNCTION 


parameter list 


parameter list 121539-13 


E-5 
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unsigned integer (:) 


function identifier 


expression (3) 


expression 


(3*) expression 


procedure identifier (<) 


procedure identifier 


statement careaga 


E-6 
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FORWARD 


directive 121539-21 


4 


@ [sense }--+~Q—+[ oe] 


directive 


PROCEDURE parameter list 
FUNCTION parameter list e type identifier 


block 121539-15 


E-7 
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PROGRAM identifier identifier O-O—LL tex $+ CQ— 


program 121539-16 
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oe 
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E-10 


APPENDIX F 


PASCAL-86 VOCABULARY 


Tables F-1 through F-8 summarize all keywords, special punctuation symbols, direc- 
tives, and predefined identifiers in Pascal-86, giving a brief definition or classification 
of each. The gray-shaded portions describe features that are Intel extensions. 


DOWNTO 
ELSE 
END 
FILE 

FOR 


FUNCTION 
GOTO 


PACKED > 
- PRIVATE» 


PROGRAM 


isi < & 


~ RECORD 
REPEAT 
SET 
THEN 
TO 
TYPE 
UNTIL 
VAR 
WHILE 
WITH 


Table F-1. Keywords 


Boolean operator 

Type constructor 

Start of compound statement 

Start of CASE statement or record variant 

Start of constant definition 

Arithmetic operator 

Part of WHILE, FOR, or WITH statement 

Part of FOR statement, decrementing form 

Part of IF statement 

End of record type specification, compound statement, or CASE statement 
Type constructor 

Start of FOR statement, or start of Capers clause in aeerece Species : 


tion for separate compilation © 


Start of functionn declaration 
Start of GOTO statement 
Start of IF statement 
Relational operator (for sets) 
Start of label declaration 
Arithmetic operator 


Start of module heading for separate compilation 
Null value for pointer variable 


Boolean operator 
Part of array type specification, record variant, or CASE statement 
Boolean operator 


- Start of optional clause in CASE statement 


Seas ‘abate to clchnamanaibat De ot ct 


a Senet te g of ser 
PROCEDURE 


Start of tate declaration 
Start of program heading 


| Lead-in to public section in interface specification for separate compilation — 


Type constructor 

Start of REPEAT statement 

Type constructor 

Part of IF statement 

Part of FOR statement, incrementing form 
Start of type definition 

Part of REPEAT statement 

Start of variable declaration 

Start of WHILE statement 

Start of WITH statement 
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Table F-2. Special Symbols 


a 


plus sign arithmetic or set operator, or sign part of numeric 
constant 


minus sign arithmetic or set operator, or sign part of numeric 
constant 


star arithmetic or set operator, or part of comment 
bracketing symbol 


slash arithmetic operator 


equal sign relational operator, or part of constant or type 
definition 


“not equal” symbol relational operator 


‘Tess than” symbol relational operator 
“greater than’ symbol relational operator 


“less than or equal to”’ symbo! relational operator 


“greater than or equal to’’ symbol _ | relational operator 


left parenthesis 


right parenthesis 


left bracket 
right bracket 


left brace 

right brace 
assignment symbol 
period, or dot 


comma 
semicoton 


colon 


apostrophe 


up-arrow 
“at” sign 
ellipsis 


underscore 


bracketing symbol for expression factor, enumer- 
ated type specification, case constant list, param- 
eter list, argument list, or program parameter list; 
or part of comment bracketing symbol 


bracketing symbol for expression factor, enumer- 
ated type specification, case constant list, param- 
eter list, argument list, or program parameter list; 
or part of comment bracketing symbol! 


bracketing symbol in array type specification, 
indexed variable, or set expression 


bracketing symbol in array type specification, 
indexed variable, or set expression 


comment bracketing symbol 
comment bracketing symbol 
part of assignment statement or FOR statement 


end of compilation, part of field designator, or 
decimal point in signed real number 


separator for small syntactic units in a sequence, 
such as labels or identifiers 


separator for large syntactic units in a sequence, 
such as declarations, definitions, and statements 


part of variable declaration, record, type specifi- 
cation, function declaration, functional parameter, 
parameter list, labeled statement, or CASE state- 
ment 


bracketing symbol for literal string 


part of pointer type specification, referenced 
variable, or buffer variable 


part of pointer type specification, referenced 
variable, or buffer variable 


part of subrange type specification, or part of 
element in set expression 


part of an identifier 
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Table F-3. Directives 


Directive Meaning 


FORWARD designates that the body of the named procedure or function is 
given later in this compilation 


Table F-4. Predefined Program Parameters 


INPUT standard input file; of type TEXT 
OUTPUT standard output file; of type TEXT 


Table F-5. Predefined Types 


BOOLEAN Simple ordinal type 


CHAR Simple ordinal type 
INTEGER Simple ordinal type 


Table F-6. Predefined Constants 


Boolean constant 
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~ ARCTAN 


GET6087ERRORS 


| OUTBYT | 


CHR (int-expr) 
(arith-expr) 
[(file-var)] 


[(textfile-var)] 


(arith-expr) 
ent a 


(int-expr) — 


(ord-expr) 
(ord-expr) 
(real-expr) 
(arith-expr) 
(arith-expr) 
(arith-expr) 
(ord-expr) 


(real-oxpr) 


CAUSEINTERRUPT 


ENABLEINTERRUPTS 
GET 


_ MASK8087ERRORS 


NEW 


PACK 


PAGE 


(arith- expr) 


j pferhitos 
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Table F-7. Predefined Functions 


intager or real 


Identifier Parsenater Retumes Operation 
List” Value 


returns absolute value of argument 
iS Brecosing of waret 


real returns arctangent of argument 
CHAR returns corresponding character value 
real returns cosine of argument 


BOOLEAN 
BOOLEAN 


checks for end of file 
checks for end of line 


returns e*, where x is argument 
returns natural #2 abil of argument 


“BOOLEAN 
INTEGER 


~ checks whether argument is odd 
returns ordinal number of argument 


ordinal returns preceding value in sequence 


INTEGER 


returns rounded value of argument 


real returns sine of argument 


integer or real 


returns square of argument 


real returns square root of argument 


| real 
INTEGER | 


erainal returns next value in sequence 


tangent of argument _ 


g TE integer part of arauttont 
_ returns ordinal number of argument 


*For readability, optional blanks have been omitted from the syntax. 


Table F-8. Predefined Procedures 


-DISABLEINTERRUPTS | 
DISPOSE 


(pointer{,tag]...) 
[(file-var)] 


1 ee 
a i (port. de ress, s.variable) 
| | eortaceressvaiatey 


: epeotsinn- 


(pointer[,tag]...) 


| (port-address,expression) 


(unpacked-array, ord-expr, 


packed-array) 
[(textfile-var)] 


| frees a aynatilés vartabie 
_ enables 8086/8088 interrupts 


inputs one file component 


| returns 8087 error ed fee 
: 7 ERS. SS 


allocates a new dynamic variable 


ae memes an 8086/8088 “ 


. : outputs ‘two bytes 1 to an 
8088 port. 3 


packs an array 


causes page eject in text file 
output 
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Table F-8. Predefined Procedures (Cont'd. ) 


PUT [(file-var)] 


READ ([file-var, variable 
[,variable]...) 


outputs one file component 


inputs one or more file compo- 
nents to variables 


READLN ([textfile-var,|variable 
[,variable]...) or (textfile- 


var) or none 


inputs zero or more text file 
components to variables and 
skips to next line 


RESET 
REWRITE 


(file-var' prepares a file for reading 


(file-var| prepares a file for writing omitted 


f h 


(packed-array, unpacks an array 


unpacked-array,ord-expr) 


UNPACK 


WRITE ([file-var, |write-param 


[,write-param]...) 


outputs one or more file compo- 
nents from variables 


WRITELN ([textfile-var,|write-param 
[,.write-param]...) or 
(textfile-var) or 


none 


outputs zero or more text file 
components from variables and 
starts new line 


*For readability, optional blanks have been omitted from the syntax. 
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RUN-TIME DATA REPRESENTATIONS 


The Pascal-86 compiler determines the amount of storage needed at run-time for 
each data type, and the run-time support software allocates the storage when you 
execute the Pascal program. This appendix details the amount of storage allocated 
for each data type, and the method used to assign storage to these types and locate 
them in memory. You need this information if you intend to pass data as arguments 
to procedures written in other languages. See Appendix J for more information about 
communicating to modules written in other languages. 


H.1 Simple Types 


Table H-1 summarizes the storage allocated at run-time for each simple type. The 
figure under the BITS heading is the minimum number of bits needed to store values 
of the corresponding data type. The figure under the BYTES heading is the number 
of bytes allocated to store values of the corresponding data type. You only need to 
know the number of bytes for each data type in order to match a Pascal-86 data type 
with the appropriate data type in another Intel language. 


In all of these discussions, a byte is eight bits, and a word is two consecutive bytes 
(16 bits). The byte with the higher memory address contains the eight most signifi- 
cant bits of a word, and the byte with the lower memory address contains the eight 
least significant bits. The significant bits of a value are right-justified in the bytes the 
value occupies. For all simple types, the run-time support software assigns the most 
significant bits of their binary representations to the highest bit positions. For real 
values, the run-time support software assigns the fractional part to the lowest bit 
positions (to the bytes with the lowest addresses), and the exponent part to the highest 
bit positions. 


NOTE 


All real arithmetic in Pascal-86 is performed in 80-bit TEMPREAL 
(extended precision) format, which is used both internally and as a prede- 
fined data type. Calculated values are converted to REAL or LONGREAL 
precision only upon assignment to such a variable. REAL values are in the 
intervals (—2!28, —2~!27), (0,0), and (27'27, 2'28). LONGREAL values are 
in the intervals (—2!°4, —27!93), (0,0), and (27193, 2'974). TEMPREAL 
values are in the intervals (— 2!*384, — 2~'6383), (0,0), and (27 '9383, 216384), For 
further information on the interval formats for real values, see 7.1.8. 


Decimal approximations for the powers of two are: 


2~'?7 is approximately 5.877471754 X 10°? 
2!28 is approximately 3.412823668 xX 10°%8 
2~!°23 is approximately 1.11253693 X 10~3% 
2!974 is approximately 1.797693131 x 10% 
2~'6383 is approximately 1.168105158 X 10°% 
2'384 is approximately 1.189731472 * 10% 
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Table H-1. Run-Time Storage Allocation of Simple Data Types 


BOOLEAN 
CHAR) 
JINTEGER®) 


Pointer®) | 32° 4 
Subrange (n..m)(9) subbit subbyte 
Enumerated (n elements)(1° enumbit enumbyte 


NOTES: 


(1) Values of type CHAR are eight-bit ASCII codes stored in eight bits (one byte). In Pascal programs, 
you can express the characters carriage return (ASCII 13) and line feed (ASCII 10) as the prede- 
fined constants CR and LF, respectively. All other characters can be expressed by enclosing 
the character in single quotes (ASCII 39). CHR is defined in the range 0 to 255. 


Values of type INTEGER are in the range — 32767 to + 32767. 
Values of type LONGINT are in the range — 2147483647 to +2147483647. 


Values of type LONGREAL are in the intervals (— 21924, —2~ 1023) (Q, QO), and (2~ 1024, 21023) to 
53 bits of precision. 


Values of type REAL are in the intervals (— 2128, —2~ 127), (0, 0), and (2-127, 2128) to 24 bits of 
precision. 


Values of type TEMPREAL are in the intervals (— 216384, —2~ 16383) (Q, 0), and (2~ 16383, 216384) 
to 64 bits of precision. 


(2 


~— 


(3 


— 


(4 


= 


(5 


— 


(6 


= 


(7 


~— 


Values of type WORD are in the range 0 to 65535. 


(8) If the SMALL(—CONST IN DATA—) model of segmentation is used (10.3.18) pointers are only 
16 bits long (2 bytes). 


(9 


The value of subbit and subbyte can be calculated as follows: 

If the subrange n..m is in the range 0..255, subbit is equal to eight bits and subbyte is equal to 
one byte; otherwise, subbit is equal to 16 bits, and subbyte is equal to two bytes. 

(10) The value of enumbit and enumbyte can be calculated as follows: 


For an enumeration of n elements, enumbit is equal to the smallest positive integer greater than 
or equal to the base-two logarithm of n, and enumbyte is equal to the smallest positive integer 
greater than or equal to (enumbit/8). 


H.2 Structured Types 


All structures are byte-aligned and occupy an integral number of bytes; 1.e., each 
field of a structure starts at a bit position that is evenly divisible by eight and occupies 
a multiple of eight bits (bit positions are numbered from zero). 


H.2.1 Record Types 


The run-time support software assigns storage to record types in two steps: first the 
fields are assigned to a string of bits, and then the bit string is assigned to bytes in 
memory. 


The fields of a record are assigned storage in the order in which they are defined in 
the record. The first field occupies the lowest address. Each field is byte-aligned and 
occupies an integral number of bytes. 


Pascal-86 User’s Guide Run-Time Data Representations 


Structured fields are aligned on the next available bit position that is evenly divisible 
by eight (byte-aligned), and they occupy an integral number of bytes (multiples of 
eight bits). 


A structured type field can itself contain simple type and structured type fields, just 
as a record can contain records. If such a structure contains structured type or simple 
type fields, the structure is aligned to satisfy the byte-aligned requirement of its 
components. 


The following figures illustrate the storage allocation scheme, which has two parts: 
first the fields are assigned to a long bit string, then the bit string is assigned to bytes 
of memory (shown in figure H-2). 


TYPE A = RECORD 


A ee | emery ae 

AREC : RECORD C*fields are byte-aligned*) 
A2 : INTEGER 
A3 : INTEGER 
END; 

A 4 a OD ee 

END; 


Figure H-1 shows the first step of this storage allocation scheme: assigning the fields 
to bytes in a long bit string. 


00000000 00111111 11112222 22222233 33333333 44444444 
01234567 89012345 67890123 45678901 See 


I Al 1 A2 ' 


A3 t A4 I 
+ +—— +—— + —_ + —— + 


+ 


Figure H-1. Record (A) Containing a Record (AREC) 121539-36 


Storage for type A is allocated in this fashion (““+” denotes a byte boundary). 


The second and last step is the assignment of the bit string to actual bytes, as shown 
in figure H-2. Within each byte, the more significant bits (higher bit positions) are 
actually on the /Jeft side, contrary to the bit numbering in figure H-1. Figure H-2 
shows the actual bit positions of the fields defined in figure H-1 as they are assigned 
to bytes in memory. 


00000000 11111100 22221111 33222222 33333333 44444444 
76543210 54321098 32109876 10987654 98765432 76543210 


1 AL ot A2 ' A3 1 AS ot 
+ +— + — + ——_ + —_ + + 
Figure H-2. Actual Bit Positions within Memory Bytes 121539-37 


H.2.2 Array Types 


Since an array can contain arrays, the components of the innermost nested array are 
allocated first; that is, storage is allocated in row-major order, with the rightmost 
index expression varying the fastest. For example, a two-dimensional array of rows 
and columns can be simulated in Pascal-86 by providing an array of rows, where each 
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row is an array of columns. The array of columns (selected by the rightmost index 
expression in a pair of index expressions) is allocated first. 


The first component is assigned the lowest address. Each component is byte-aligned 
and occupies an integral number of bytes. 


Using ASM86 to Reference an Element in a Pascal-86 Large Array 


As mentioned in section 10.3.12, the data sections of certain modules may be placed 
in more than one data segment. In particular, arrays that require more than 64K 
bytes of data storage are placed in more than one data segment. These data struc- 
tures are called large arrays. 


This section describes the process whereby a large array is mapped onto memory 
segments. In addition, this section provides two examples that illustrate the mapping 
of large arrays, along with assembly source code that allows you to access a single 
element in each of these arrays. 


Large arrays are mapped onto memory segments based on two static attributes of the 
structure: the component size and the component number. The component size of a 
large array is the number of bytes per individual component on the array. The 
component number is the total number of components on the array. The Pascal-86 
compiler uses these numbers to map the elements of a large array onto a given number 
of segments. The first n segments are full; i.e., the number of elements they contain 
is a power of two. The final segment contains the remainder. 


The algorithms presented in this section perform more efficiently when the compo- 

b nent size of a large array is a power of two. This stems from a balance between the 
time needed to access an element in a large array and efficient memory usage. You 
may want to pad your data structure with unused bytes to construct a large array 
with a component size that is a power of two, thereby improving access time. 


This section presents two examples in which a component in a large array is accessed. 
The first example presents a static array whose component size is a power of two; the 
second example presents a dynamically allocated array whose component size is not 
a power of two. 


To partition the elements of a large array, the Pascal-86 compiler must first deter- 
mine the total number of elements to place in a full segment. (A full segment is one 
whose component number is a power of two.) The following equation determines the 
number of elements in a full segment: 


LgNumc = Floor (Log base 2 (65536/Components Size)) 
(65536 represents the maximum number of bytes in a given segment. ) 


Based on the results of this calculation, the compiler can partition elements into 
memory segments by calculating the number of bytes in a full segment and the number 
of bytes in the final segment of a large array. Another calculation that can be 
performed results in the number of full segments in a large array. Note that the 
Pascal-86 compiler performs these calculations; the equations are included here only 
to make the examples easier to understand. 


These calculations are as follows: 
1. Equation to calculate the number of bytes in a full segment: 


Size of a full segment = 2'#Ne™- * Component Size 
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2. Equation to calculate the number of bytes in the last segment of a large array: 
(REM Component Number ) * Component Size 


DlgeNume 


3. Equation to calculate the number of full segments in a large array: 


Number of Full Segments = MOD Component Number 


DLgeNume 


The following paragraphs present an example of the memory representation of a large 
array whose component size is a power of two. 


Consider the large array representation for the following Pascal-86 program fragment: 


Public ThisModule; 
For SomeQtherModule 
Var LargeArray: array[1..100000] of integer; 


The number of elements in this array is 100,000 and the type is integer. Each integer 
in this 100,000-element array requires 2 bytes of storage; therefore, the total number 
of bytes needed to represent this array is 200,000. 


Based on the equations presented above, this large array is represented in memory as 
three segments of 65536 bytes each and a final segment of 3392 bytes, as indicated 
in figure H-3. 


1 
64K BYTES ‘ 
SELECTOR 1 32768 
32769 


64K BYTES : 
55536 


65537 
64K BYTES : 
98304 


SELECTOR 4 


98305 
3392 BYTES : 


100000 


Figure H-3. The Memory Representation of a Large Array Whose 
Component Size Is a Power of Two 121539-45 


The following section of source code (written in ASM86) allows you to access a single 
element in this static large array: 


; assume normalized index expr in DX:AX 


SAL AX, 1 ; Mult by Component Size (2 bytes) 
RCL DX 5:4 
; DX contains offset into selector table 
: AX contains offset into segment 


MOV DI ,DX ; Copy table index into index reg 
SHL DI,1 | cee@ hb S68 l-e ert or ave 2. apes s joe Ae" oe) 
MOV ES,SelectorTableDisp [| DI Jj 


; ES contains correct selector for this element 
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MOV DI ,AX ; Copy seg offset into index reg 
MOV CX,ES: [ DI ] 


; CX contains the integer array element 


The following paragraphs present an example of the memory presentation of a large 
array whose component size is not a power of two. 


Consider the Pascal-86 representation for the following dynamically allocated large 
array whose component size is not a power of two: 


Type 
ThreeByte = 
record 
fieldi : 0..10; 
field2 : integer 
end; 
DynamicLargeArray = array [1..40000] of ThreeByte; 
Pntr = tDynamicLargeArray; 
Var 


DynLAPtr : Pntr; 
begin : 

New(DynLAPtr); 

Ditepe eet DynLAPtr ); 
Here, the component size is three and the component number is 40,000. Based on the 
equations presented above, this large array is allocated to memory segments as two 


segments of 49152 bytes each and one remaining segment of 21696 bytes, as indicated 
in figure H-4. 


1 
49152 BYTES 7 
16384 


49152 BYTES 


LAP 


SELECTOR 3 


21696 BYTES 


o = 
N oa 
“ @ 
a & 
On 


Figure H-4. The Memory Representation of a Large Array Whose 
Component Size Is Not a Power of Two 121539-46 


The following section of source code (written in ASM86) makes it possible to access 
a single element in this large data array: 


; assume normalized index expr DX:AX 
> assume EA is in ES:BX 
MOV CxX,14 ; LgNumC, used as shift count 


MOV SI1,AX ; save low 16 bits of index expr 
; compute selector table offset 


; first divide the index expr 
: by 2**LgNumC 
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DIVIDELOOP : SHR DX, 1 foe a at 


RCR AX, 1 
LOOP DIVIDELOOP 


MOV DI,AX ; copy MOD into 
SHL DI, 1 ; each selector 


MOV ES,ES:[ BX + DI ] 


>; ES contains correct selector 
; compute the 


AND S1,0011111111111111B 
MOV AX,3 ; constant is 
MUL $1 ; component size 
MOV SI, AX ; copy offset 
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division 


index reg 
Pe 2 bytes, s6- C* 2) 


for this element 


offset into the g.69 


const is 2**LgNumC 
Component Size 


* offset portion 


into index reg 


; ES: [SI] is ADDRESS of selected array element 


MOV Gk gb S:4* fh Sb] >; Cl is 


H.2.3 Set Types 


arr[DX:AX].field1 


Sets may have at most 32767 elements, and the ordinal value of each member must 


lie in the range of integers. 


The run-time support software stores a set such that the set element whose ordinal 
value is zero, modulo eight, is assigned to the least significant bit of the first byte 
(bit 0). The smallest set element in the base type of the set is also assigned to the 


first byte. Figure H-5 shows a sample assignment. 


VAR ITEMS: SEM Och 23 sid Og 


ITEMS := [3,5,7,9]; 
Storage for ITEMS is allocated in this fashion. 


76543210 76543210 


+ + 
110104*** 1 eeeeeO10F 
+ + + 


Figure H-5. Bits Assigned for a Set 


121539-38 


The asterisk (*) denotes an unassigned bit and the plus sign (+) denotes a byte 


boundary. 
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H.2.4 File Types 


A file variable occupies six bytes in its data area in addition to the space occupied by 
the buffer variable (which is allocated according to the rules for its type). Two of the 
six bytes hold the file’s connection number, and the other four are used as a pointer 
to a structure in the constant area of the file variable’s defining procedure. 


The structure in the defining procedure’s constant area consists of the name of the 
file variable, preceded by a byte holding the length of the name. The most significant 
bit of the length byte is set if the file is a program parameter. 


Each component of a file starts on a byte boundary and occupies an integral number 
of bytes. 


APPENDIX | 
PASCAL-86 EXTENDED 


SEGMENTATION MODELS 


1.1 Introduction 


Program segmentation is a technique used to optimize the object code produced by 
the compiler and to allow easier, more efficient memory addressing. 


The simplest way to compile Pascal-86 code is to use the segmentation controls 
(LARGE, COMPACT, and SMALL) outlined in Chapter 10. However, to take full 
advantage of the segmented iAPX 86 architecture and to simplify the development 
of very large programs, Pascal-86 provides extended segmentation facilities. This 
appendix discusses the segmentation control options available to you. 


Each compilation produces an object module made up of several sections (see 11.2). 
At link time, the sections from separately compiled modules are combined into 
segments depending on compiler-generated attributes and your input to the link 
program. Once combined into a segment, all constituent sections can be addressed 
from the same 8086 segment register. The compiler uses this segment addressability 
to improve the code produced for data references and procedure calls. This is the 
primary purpose of the segmentation controls—to tell the compiler how separately 
compiled code and data will be located in memory. 


Most Pascal-86 programmers need not be concerned about memory addressing 
techniques on the iAPX 86, as the SMALL, COMPACT, and LARGE controls 
automatically handle the mechanics of program segmentation. If needed, a descrip- 
tion of iAPX 86 memory concepts is given in Appendix J. 


By making the variety of segmentation schemes open to you virtually unlimited, these 
controls can reduce the storage required for pointers and the code required to refer- 
ence external variables and procedures. 


1.1.1 Extended Segmentation 


The segmentation controls adopted by Pascal-86 are a simple extension of the 
SMALL, COMPACT, and LARGE controls originally supported by PL/M-86. Using 
these simple controls, you can create a large program where each module is compiled 
with the same segmentation control, or you can use the extended controls to partition 
‘your program into a number of loosely-coupled subsystems. 


A subsystem is a collection of tightly coupled, logically related modules that obey 
the same model of segmentation. A program is made up of one or more subsystems. 
(If you use only the simple controls to compile your program modules, then your 
program consists of one subsystem.) The subsystems within a program can use differ- 
ent segmentation models if appropriate. Within a subsystem, calls and data refer- 
ences are long or short depending on the segmentation model selected for the 
subsystem. Between subsystems, all calls are long and most data references require 
32-bit pointers. 


Optimized code is obtained by breaking LARGE programs (greater than 64K of 
code, data, or both) into COMPACT or SMALL subsystems having less than 64K 
each of code and data. References between modules in the same subsystem can then 
use more efficient 16-bit addresses. (Only references outside a subsystem need to use 
the full 32-bit address.) Use of these extensions also allows easier access to the one- 
megabyte address space. 
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1.2 Subsystems 


By carefully constructing subsystems, you can minimize references to outside resources 
(code and data) and, in return, receive highly optimized code for all internal resource 
references. This section describes how to create subsystems using the extended 
segmentation controls. 

Note that all modules in your program should be compiled with the same set of 
subsystem definitions, so that the compiler makes consistent assumptions about the 
location of externals. This can be done by putting the subsystem definitions and the 
interface specification into one INCLUDE file and inserting it in every compilation. 
(See figure I-1 for a sample INCLUDE file.) If inconsistent subsystem definitions 
are used when compiling modules, LINK86 will generate an error. 


There is one segmentation control for each subsystem in a Pascal program. It takes 
the form: 


HAS module-list 


$ model { [subsystem-id]|submodel] HAS module-list : 
; EXPORTS public-list 


where 
model specifies the model of segmentation that the subsystem 
will follow (SMALL, COMPACT, and LARGE are 
allowed, but LARGE subsystems will not provide optim- 
ized code). All modules in the subsystem must be 
compiled with the same model of segmentation. 
subsystem-id specifies a unique name for each subsystem, and can be 


up to 31 characters long. 


SSMALL(SmallHeap -CONST IN DATA- HAS WithSmallHeap; 
$ EXPORTS TinyPtr; 
$ EXPORTS WithSmallHeapNewLargeRec, NewLargeNumber; 
$ EXPORTS WithSmallHeapGenerateTwo) 
PUBLIC withSmallHeap; 
FOR WithLargeHeap, Evaluator; 
TYPE TinyPtr = “INTEGER; 
FOR WithLargeHeap; 
FUNCTION WithSmallHeapNewLargeRec (vall, val2 : integer) : LargeRecPtr; 
FUNCTION NewLargeNumber (val : integer) : LargePtr; 
FOR Evaluator; 
PROCEDURE WithSmallHeapGenerateTwo (FUNCTION c (recl, rec2 : LargeRecPtr) : BOOLEAN; 
vall, val2 : INTEGER); 


SLARGE (LargeHeap -CONST IN CODE- HAS WithLargeHeap, Evaluator; 
$ EXPORTS LargePtr; 
$ EXPORTS LargeRecPtr, LargeRec; 
$ EXPORTS WithLargeHeapNewLargeRec, NewTinyNumber; 
$ EXPORTS WithLargeHeapGenerateTwo; 
$ EXPORTS compar) 
PUBLIC WithLargeHeap; 
FOR withSmallHeap, Evaluator; 
TYPE LargePtr = “INTEGER; 
LargeRecPtr = “LargeRec; 
LargeRec = RECORD 
TinyVal : TinyPtr; 
LargeVal : LargePtr 
END; 
FOR WithSmallHeap; 
FUNCTION WithLargeHeapNewLargeRec (VAR vall, val2 : integer) : LargeRecPtr; 
FUNCTION NewTinyNumber (val : integer) : TinyPtr; 
FOR Evaluator; 
PROCEDURE WithLargeHeapGenerateTwo (FUNCTION c (recl, rec2 : LargeRecPtr) : BOOLEAN; 
vall, val2 : INTEGER); 


PUBLIC Evaluator; 


FOR WithSmallHeap, WithLargeHeap; 
FUNCTION compar (recl, rec2 : LargeRecPtr) : BOOLEAN; 


Figure I-1. INCLUDE File Containing Subsystem Definitions and Interface 
Specification 


I-2 
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submodel specifies the placement of constants. It can be either: 
-CONST IN CODE- 
(for burning into ROM—default case for LARGE) 
-CONST IN DATA- 


(for efficient access to constants in programs that are 
loaded into RAM—default case for SMALL and 
COMPACT) 


HAS module-list specifies all the modules that make up the subsystem. 
Each identifier in the module-list is the name of a module, 
which can be up to 31 characters long. 


EXPQRTS_ public-list lists the labels, procedures, and variables exported by this 
subsystem. Any object not named in an EXPORTS list 
will be local to its subsystem and not accessible from 
outside the subsystem. Each identifier in this list is the 
name of a public object, which can be up to 40 charac- 
ters long. 


Within a program, the subsystem name must be distinct from all module names, 
since they share the same name space. The names used to declare public objects must 
also be unique. Identifiers used to define subsystems and modules, however, may also 
be used to declare public objects. 


In most applications of the subsystem controls, the HAS and EXPORTS lists will 
have several dozen entries apiece. To accommodate lists of this length, a subsystem 
control may be continued over more than one control line. (The continuation lines 
must be contiguous, and each must begin with a $ in the first column). Also, note 
that any number of HAS and EXPORTS lists may appear in a control, in any order, 
allowing you to format your subsystem specification so it can be easily read and 
maintained. 


Consider the following subsystem definition: 


$COMPACTCRoom -CONST IN CODE- HAS Chair, Door, Window); 
$COMPACTCDiner HAS Booths, Waitress, Jukebox ; 


$ EXPORTS Lunches); 
$LARGECAllocate EXPORTS CodeSize, DataSize, 
$ MemSize, FreeSpace); 


This sample program contains three subsystems: Room, Diner, and Allocate. Room 
and Diner use the COMPACT model of segmentation, while Allocate uses the 
LARGE model. Constants are stored with the code in Room and Allocate. The Room 
subsystem, containing the modules Chair, Door, and Window, is apparently the main 
program, since it exports no objects. Allocate supplies four objects: CodeSize, 
DataSize, MemSize, and FreeSpace. 


1.2.1 Open and Closed Subsystems 


The subsystems that make up your Pascal-86 program may be either open or closed. 
The subsystem definition for an open subsystem does not list the modules that it 
contains; it does not have a name. Modules can be added to this subsystem at any 
time without changing the subsystem definition. Each program may have only one 
open subsystem. 


The subsystem definition for a closed subsystem does contain a HAS list, which 
specifies all modules in the subsystem. It also contains a subsystem-id as a name. 
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In an open subsystem, only the submodel and EXPORTS modifiers are permitted. 
By omitting the subsystem name, you automatically create an open subsystem that 
contains all modules not claimed in another subsystem’s HAS list. (Note that use of 
the simple segmentation controls also creates an open subsystem. ) 


One advantage of using an open subsystem is that it simplifies dealing with a SMALL 
program whose code has grown too large. When your program exhausts its 64K code 
size, take a subset of your modules and put them into a closed subsystem, leaving the 
rest of the modules in the open subsystem. 


For example, assume that your original program contained the modules ATTACH, 
OPEN, CLOSE, ERRORS, ALLOCATE, and FREE, which were all compiled with 
the simple control: 


$SMALL 


If you factor out the modules ALLOCATE and FREE from the original program, 
creating SUBSYSI, its subsystem definition would be: 


$SMALL CSUBSYS1 HAS ALLOCATE, FREE) 


Now, suppose that the modules remaining in the closed subsystem reference entry 
points AllocBuff and FreeBuff in SUBSYBS1. These must be exported from 
SUBSYS1 as follows: 


$SMALL CSUBSYS1 HAS ALLOCATE, FREE; 
$ EXPORTS AllocBuff, FreeBuff) 


Or: 


$SMALL CSUBSYS1 HAS ALLOCATE; EXPORTS AllocBuff; 
$ HAS FREE; EXPORTS FreeBuff) 


The second form illustrates how multiple HAS and EXPORTS lists can be used to 
document the items exported from each module. It also illustrates the use of a contin- 
uation line. 


Likewise, if a routine in SUBSYSI references the procedure FatalError in the module 
ERRORS, the definition of the open subsystem would then be: 


$SMALL CEXPORTS FatalError) 


No data structures need to be changed, since data reference values can still be 16 
bits. All procedures will still use the short call and return mechanism, except for 
AllocBuff, FreeBuff, and FatalError. 


1.2.2 The Exports List 


A symbol included in a subsystem’s EXPORTS list should be defined in the PUBLIC 
section of one of the modules in that subsystem. It is called an exported symbol, and 
may be referenced by modules in other subsystems. A public symbo! defined within 
a subsystem, but not listed in its EXPORTS list, is called a domestic symbol. It may 
be referenced only by modules within the same subsystem. 


A procedure should be-exported only if it must be referenced outside the defining 


subsystem, since accessing exported procedures will generally require more code and 
more time than is normally required for domestic procedures. 


I-4 
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Exported procedures have the following characteristics: 

¢ They use the long form of call and return. 

e They save and restore the caller’s DS register upon entry and exit. 
¢ They reload DS with their associated data segment upon entry. 


¢ They accept VAR parameters using long or short addresses according to the 
segmentation model they were compiled with. 


Public Symbols and the FOR-clause. As explained in 4.2.2, the FOR-clause defines 
the scope of public symbols in the interface specification. For domestic symbols, this 
scope may not extend beyond the defining subsystem. Hence, the FOR-clause for 
domestic symbols may name as recipients only modules that belong to the subsystem 
containing the symbol definitions. (Symbols not restricted by a FOR-clause can be 
accessed by all modules; consequently, only exported symbols should appear in an 
unrestricted definition list.) The FOR-clause for exported symbols may name any 
module in the program as a recipient. 


1.2.3 Placement of Controls 


The segmentation controls have special restrictions associated with their placement. 
These rules are as follows: 


¢ Only the definition of the open subsystem (with no EXPORTS list) can be placed 
on the invocation line; definitions of all other subsystems must occur inside the 
source program. 


¢ The subsystem definitions must appear before any PUBLIC section that is 
included in the subsystem. 


e The definition of the open subsystem (if present) must be the last segmentation 
conirol specified. 


The subsystem definitions for your entire program can be included in the compilation 
of each module using the INCLUDE control. The compiler will extract the infor- 
mation it needs to correctly and efficiently compile each module’s intra- and inter- 
subsystem references. 


Figure I-1 gives a sample INCLUDE file containing the segmentation controls and 
interface specifications for two subsystems, SmallHeap and LargeHeap. 


Progamming Restrictions 


Variable parameters of a procedure or function defined in a SMALL(—CONST IN 
DATA—) subsystem have restrictions on the objects that can be passed as 
arguments. They must be either variables defined in a SMALL subsystem, dynamic 
variables whose pointer types were defined in SMALL(—-CONST IN DATA—) 
subsystems, or variable parameters to a procedure defined in a SMALL (—-CONST 
IN DATA—)subsystem. 


Variable parameters of a procedure or function in a SMALL( CONST IN 
DATA—)subsystem use short addresses. Corresponding arguments must be varia- 
bles in a SMALL(--CONST IN DATA—) subsystem or referenced through a 
16-bit pointer (type defined in SMALL (—CONST IN DATA—) subsystem). 


Any other invalid mixing of the short and long pointers will be prohibited py the 
strong typing mechanism in Pascal. 


| 


This appendix describes the calling conventions used by iAPX 86,88 family languages. 
These calling conventions are standardized so that a main module written in 
Pascal-86 can freely call procedures, subroutines, and subprograms in other modules 
written in other iAPX 86,88 family languages. (For information on coding main 
program modules in other iAPX 86 languages, such as FORTRAN-86 or PL/M-86, 
see J.6.) 


As a Pascal-86 programmer calling Pascal-86 procedures and functions from 
Pascal-86, you do not need the information in this appendix. You need to know infor- 
mation about parameters and arguments as described in Chapter 6. 


As a Pascal-86 programmer calling FORTRAN-86 subprograms from Pascal-86, you 
must know the FORTRAN-86 data types that match Pascal-86 data types, and the 
order and number of arguments to supply for the FORTRAN-86 parameters. A table 
of the corresponding data types is provided at the end of this appendix (J.5). Note 
that FORTRAN uses call by reference for all parameters, which corresponds to VAR 
parameters in Pascal. (FORTRAN-86 programs conform to the LARGE model of 
segmentation.) 


As a Pascal-86 programmer calling PL/M-86 procedures from Pascal-86, you must 
read the special note in J.4.1 (Stack Usage). You must also know the PL/M-86 data 
types that match Pascal-86 data types, and the order and number of arguments to 
supply for the PL/M-86 parameters. A table of the corresponding types is provided 
at the end of this appendix. 


As a Pascal-86 programmer calling ASM86 subroutines or linking to the data in 
8086 Macro Assembly Language programs from Pascal-86, you need to know the 
calling conventions of stack and register usage described in this appendix. You also 
need to know the corresponding data types listed at the end of this appendix in order 
to write a subroutine that can pick up the data your Pascal-86 program passes to it. 
Refer to the ASM86 Macro Assembler Operating Instructions for more information 
about linking to ASM86 programs and for examples of linking such programs to 
PL/M-86 programs. (Since Pascal-86 and PL/M-86 use the same calling conven- 
tions, these examples also apply when linking ASM86 programs with Pascal-86 
programs. ) 


As a Pascal-86 programmer, PL/M-86 programmer, or macro assembly language 
programmer, you also need to know how to link modules properly, as described in 
Chapter 12 and in the i:APX 86,88 Family Utilities User's Guide. 


J.1 Introduction 


Since Pascal-86 allows you to write and compile separate Pascal-86 modules that can 
be linked together at a later time, you can solve a big problem with a solution composed 
of separately-tested modules that are linked together after they are internally bug- 
free. Not all modules have to be in Pascal-86—you can choose the appropriate 
language for each module. (Information on coding the main module in other languages 
is given in J.6.) Be sure to link the modules properly with LINK86, the 8086-based 
linker (to satisfy references to externals). Since the iAPX 86,88 family languages 
follow the same calling sequence (described in the following section), control will pass 
to a called module correctly. However, the called module might not be able to deal 
intelligently with the data passed to it, because languages treat some data structures 
differently. 


APPENDIX J 
LINKING TO MODULES WRITTEN 
IN OTHER LANGUAGES 
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NOTE 


The term procedure is used in Pascal and in PL/M, subprogram in 
FORTRAN, and subroutine in assembly language. In this appendix, swbpro- 
gram denotes any entity written in any iAPX 86,88 language that can call a 
Pascal-86 procedure or function or be called from a Pascal-86 module. 


The interface specification of a Pascal-86 module contains that module’s public section 
and the public sections of other modules that communicate with the Pascal-86 module. 
Public sections are explained in Chapter 4. You have to define the public objects 
which the other modules refer to, and the external objects that can be referred to by 
the Pascal-86 module. These objects include the names of external procedures and 
functions that can be called from the module, and public procedures and functions in 
the module that can be called from other modules. 


By specifying arguments in a reference to an external subprogram (procedure, 
function, or subroutine), you pass data to the external subprogram. The number of 
arguments and the order in which you specify them must match the number and 
order of the corresponding parameters in the external subprogram’s declaration (see 
6.1). 


All arguments for parameters are passed on the 8086 stack or the 8087 register stack 
in the order that they are specified. Functions that return values return a simple-type 
value (except real values) in a register, or a real value on the top of the 8087 register 
stack. Pascal-86 functions do not return structured values. 


There are two methods of passing arguments to other subprograms: call by value and 
call by reference. The first method, call by value, passes the actual value of the 
argument to the subprogram. The second method, call by reference, passes the address 
of the argument to the subprogram. The called subprogram uses the address to find 
the data structure associated with the argument. In both cases, the called subprogram 
must know the structure of the data. 


Pascal-86 passes arguments to variable parameters by reference, and arguments to 
value parameters by value. 


J.2 iAPX 86 Memory Concepts 


The allocation and arrangement of run-time program memory (via relocation and 
linkage) depend on the size control (SMALL, COMPACT, or LARGE) that you 
specified when compiling your program modules. These controls also influence how 
locations are referenced in the compiled program, leading to certain program size 
restrictions. 


Each compilation produces an object module containing several sections, for example, 
code, data, and stack (see 11.2). At link time, sections from separate modules can be 
combined into segments, depending on compiler-generated attributes and user input 
to the link program. Once they are combined into a segment, all the sections can be 
addressed without reloading an iAPX 86 segment register. 


iAPX 86 memory space has an extent of one megabyte, but the 16-bit word length 
of the 8086 can only address 64K locations. A complete physical address requires 20 
bits. Therefore, two separate words (a segment address and an offset) are used in a 
special way to form this 20-bit address, as follows: 


¢ A segment is defined as a portion of the 8086’s one megabyte address space, 
consisting of up to 64K bytes of contiguous memory and beginning at a 16-byte 
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boundary. Thus, the hexadecimal representation of the 20-bit address for the 
beginning of every segment ends in 0, for example, 00000H, 00010H,...12340H..... 
This definition permits a 16-bit word to represent any segment starting address 
since the extra four bits not included are always 0. A 16-bit word used in this 
way is called a segment address. Four CPU registers (CS, DS, SS, and ES) are 
used to hold segment addresses. 


¢ The second word used to form the full 20-bit address identifies a specific location 
within the segment, starting at the segment address. This 16-bit quantity is called 
the offset. 


To form a 20-bit address, the iAPX 86 CPU shifts a segment address left four bits 
and adds an offset. 


J.3 Segment Name Conventions 


Table J-1 summarizes the segmentation of a subsystem under the possible models of 
segmentation by giving the name of the segment and group where each type of 
program section is stored for each model of segmentation. 


J.4 Calling Sequence 


The calling sequence for each subprogram activation (procedure reference, CALL, 
or function reference) places the arguments for the subprogram parameters on the 
8086 stack or 8087 register stack and then activates the subprogram with a CALL 
instruction. You can see an approximate assembly code listing of this sequence by 


Table J-1. Summary of Pascal-86 Segment and Group Names 


Data Data Data 
jeter | suomnse] cose | Sate | Rate | wtmy | content| amr 
SMALL INDATA | sCODE sDATA MEMORY | MEMORY | sSCONST [16 bits 
sCGROUP |DGROUP |DGROUP |DGROUP | DGROUP 
SMALL INCODE {|sCODE sDATA dynamic | MEMORY | sCODE 32 bits 
sCGROUP | DGROUP DGROUP | sCGROUP 
COMPACT | IN DATA j sCODE sDATA dynamic {| MEMORY]sCONST | 32 bits 
sCGROUP | sDGROUP sDGROUP 
COMPACT |IN CODE | sCODE sDATA dynamic | MEMORY | sCODE 32 bits 
sCGROUP | sDGROUP sCGROUP 
LARGE INDATA |mCODE mDATA MEMORY | mDATA 32 bits 
LARGE INCODE |mCODE mDATA == mCODE 


NOTES: 


sCGROUP denotes a group name composed of the subsystem name and _CGROUP 
sDGROUP denotes a group name composed of the subsystem name and _DGROUP 
sCODE denotes a segment name composed of the subsystem name and _CODE 
sDATA denotes a segment name composed of the subsystem name and _DATA 
mCODE denotes a segment name composed of the module name and _CODE 
mDATA denotes a segment name composed of the module name and _DATA 
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compiling with the CODE control a Pascal-86 module that contains a reference to an 
external procedure or function. 


J.4.1 Stack Usage 


The arguments are placed on the 8086 stack or the 8087 register stack in left-to-right 
order. Since the stack grows from higher locations to lower locations, the first 
argument occupies the highest position on the stack. 


In a list of arguments for value parameters, the leftmost seven real argument values 
(if any) are passed on the 8087 register stack, with each argument value occupying 
one 80-bit register. If there are more than seven real argument values, the rest (after 
the leftmost seven) are passed on the 8086 stack. 


Three 8086 stack words are required to hold arguments for functional and procedural 
parameters. The first two words hold a four-byte address of the code, and the third 
word holds a two-byte static link to the environment of the code. 


NOTE 


In PL/M-86, arguments for procedural parameters have no static link to the 
environment of the code, only a four-byte address of the code. There are two 
restrictions on the use of procedural or functional arguments passed between 
Pascal-86 and PL/M-86 subprograms: 


1. The PL/M-86 subprogram must declare a dummy WORD parameter 
immediately after the procedural or functional parameter, in order to 
accommodate the stack space occupied by the static link to the environ- 
ment of the code. 


2. You can only pass outermost procedures and functions (those not nested 
within other procedures or functions) between PL/M-86 and Pascal-86 
subprograms. 


When an assembly language program calls a Pascal-86 procedure or function, the 
assembly language program must first push the arguments onto the stack. For 
example, suppose an assembly language program is calling the Pascal-86 procedure 
PROCI, which is declared in the PUBLIC section of the Pascal-86 module as follows: 


PROCEDURE proct1CPARM1,PARM2,PARM3: INTEGER; 
REALPARM1,REALPARM2: REAL); 


The assembly language program must push the argument for PARMI first, the 
argument for PARM2 second, and the argument for PARMS third, onto the 8086 
stack, and push the arguments for REALPARMI and REALPARM2 onto the 8087 
register stack since they are REAL parameters. (The seven leftmost real arguments 
in an argument list are passed on the 8087 register stack.) 


When a Pascal-86 program calls an assembly language subprogram, the program 
must use a reference to the name of the assembly language subprogram, and supply 
an argument list in a left-to-right order that corresponds to the first-to-last order of 
parameters expected by the assembly language subprogram. 


Figure J-1 shows the state of the 8086 and 8087 stacks after a call is made to the 
Pascal-86 procedure PROCI. The stack layouts would be the same if a Pascal-86 
procedure called an assembly language subprogram which expected the parameters 
PARMI1, PARM2, REALPARMI, PARMS3, and REALPARM2 in that order. 
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8086 STACK 
(The + symbol denotes a byte boundary; each stack slot holds one word.) 


BITS 15 


~t STACK MARKER (CONTENTS OF REGISTER BP) 


HIGH ADDRESSES PARM1 


+ 0 
| PARM2 | EACH ARGUMENT OCCUPIES AT LEAST ONE WORD 


RETURN RETURN SEGMENT ADDRESS AND OFFSET OCCUPIES 
TWO WORDS 


ADDRESS 
~ STACK POINTER (CONTENTS OF REGISTER SP) 


8087 REGISTER STACK 


LOW ADDRESSES 


(Each of the eight registers in the 8087 register stack is 80 bits wide.) 


BITS 79 0 


~ ST (ST FIELD IN THE 8087 STATUS WORD) 
REALPARM2 


REALPARM1 


Figure J-1. 8086 and 8087 Stack Layouts When Subprogram 
Is Activated 121539-39 


Each 8086 stack slot holds one word. Single-byte arguments are pushed onto the 
8086 stack as words. Single-byte arguments are not sign-extended when pushed onto 
the 8086 stack (the high-order byte is undefined). Arguments for functional and 
procedural parameters occupy three 8086 stack words: the first two for the four-byte 
address of the code, and the third for a two-byte static link to the environment of the 
code. 


Each REAL argument occupies one 8087 stack register. There are only eight regis- 
ters in the 8087 stack; therefore, if more than:seven REAL arguments are passed in 
one call, the leftmost (first) seven are passed on the 8087 stack, and the rest are 
passed on the 8086 stack. 


For other arguments to value parameters, space on the 8086 stack is allocated 
according to their type. For example, records, arrays, and sets will usually require 
more than two bytes; see Appendix H for run-time data representations. Arguments 
may take up to 65535 bytes; consequently, any data structure can be passed by value 
on the stack. 


A function (or PL/M-86 typed procedure) that returns a simple value returns the 
value in a register as described in the next section. A real value is returned on the 
8087 register stack; the real value occupies the top 8087 stack register. 


A Pascal-86 program that calls an assembly language subprogram expects the stack 
to look the same after the subprogram returns as it looked before the subprogram 
was called; that is, before arguments were pushed onto the stack. A called assembly 
language subprogram can restore the stack to its former condition by using the RET 
n instruction, where n is the number of bytes occupied by the arguments passed to it. 
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An assembly language program can expect the stack, upon return from a Pascal-86 
subprogram, to no longer contain the arguments it pushed, because the Pascal-86 
subprogram’s object code adjusts the Stack Pointer (contents of the SP register). 


Figure J-2 shows the 8086 stack layout during the execution of a called subprogram. 


J.4.2 Register Usage 


When an external subprogram is called, the register contents are as shown in 
table J-2. 


In addition, the 8087 register stack contains the first seven REAL arguments passed 
by the calling program. The 8087 status word is unknown and need not be saved, and 
the 8087 mode word must be saved on entry and restored before exit, if it is changed 
in the called subprogram. 


If an assembly language subprogram expects to be called by a Pascal-86 program, 
and the subprogram alters the segment registers DS or SS, the subprogram must save 
the contents of these registers upon entry and restore them prior to returning to the 
Pascal-86 program. 


8086 STACK 


BITS 15 + 0 


HIGHER ADDRESSES 


1ST ARGUMENT 
LAST ARGUMENT 


SEGMENT (RETURN 
OFFSET ADDRESS) 
OLD DATA SEGMENT 
OLD STACK MARKER 


LOCAL DISPLAY 


IF REG. DS WAS CHANGED 


| 
| 
| 
| 


CURRENT STACK MARKER (CONTENTS OF 
REGISTER BP) 


~~? 
| IF USED BY SUBPROGRAM 
NEW STACK MARKER 


LOCAL VARIABLES 


TEMPORARY STORAGE 
. ~# CURRENT STACK POINTER (CONTENTS OF 
| . REGISTER SP) 


Figure J-2. 8086 Stack Layout during Subprogram Execution 121539-40 
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Table J-2. 8086 Register Contents When Calling an External Subprogram 


Unknown; need not be saved. 
Unknown; need not be saved. 
Unknown; need not be saved. 
Unknown; need not be saved. 
Calling program’s stack marker. 


Top of stack pointer. 

Unknown; need not be saved. 

Unknown; need not be saved. 

Calling program’s data segment (static link). 
Called program’s code segment. 

Calling program’s stack segment. 
Unknown, need not be saved. 


Pascal-86 uses the BP register to address the stack. A called assembly language 
subprogram must save the contents of the BP register upon entry, and restore its 
contents before returning control to the Pascal-86 program, if the called subprogram 
uses the BP register. Before returning, the called subprogram must also adjust the 
SP register to remove all parameters from the 8086 stack. 


The registers AX, BX, CX, DX, SI, DI, and ES do not need to be preserved. A called 
assembly language subprogram can freely use these registers. If the called subpro- 
gram returns values, they are returned in the registers described in the next section. 


An assembly language program calling a Pascal-86 subprogram cannot expect the 
contents of the 8086 general-purpose registers, except BP and SP, to be preserved. If 
they are needed, they must be saved prior to calling the Pascal-86 subprogram. 


Table J-3 summarizes the use of registers. 


Table J-3. Summary of 8086 Register Usage 


ee 


Return BYTE (AL), WORD, and 
INTEGER values. 


Return POINTER offset. 


Stack pointer. 
Stack marker. 


Called subprogram’s code segment. 


Caller’s data segment. 


Caller’s stack segment. 
Return POINTER segment address. 


*SP must be adjusted so that all arguments are removed from the stack upon return. 


J—7 


Linking to Modules Written in Other Languages 


J-8 


J.4.3 Returned Values 


Pascal-86 functions, PL/M-86 typed procedures, and other called subprograms that 
return a value to the calling program use the registers to hold simple data types. 
REAL values are returned on the 8087 register stack. 


Table J-4 shows the registers used to return values. 


Table J-4. Registers Used to Return Simple Values 


PL/M-86 Type Fortran-86 Type Pascal-86 Type 


INTEGER*1 CHAR, BOOLEAN, unsigned 
LOGICAL*1 subrange, or enumeration 
stored in 8 bits. 


INTEGER, INTEGER*2 INTEGER, WORD, subrange, or 
WORD, or LOGICAL*2 enumeration stored in 16 bits. 
SELECTOR 


DX:AX DWORD INTEGER*4 LONGINT 
LOGICAL*4 


ES(segment) POINTER (all Pointer (all models except 
BX(offset) models except SMALL(—CONST IN DATA—)) 
SMALL RAM) 


BX(offset only) | POINTER Pointer (SMALL (—CONST IN 
(SMALL RAM) DATA—) model) 


8087: 
ST REAL REAL, LONGREAL, 
TEMPREAL 


J.4.4 NEAR and FAR Procedures 


To call a Pascal-86 subprogram from assembly language, your ASM86 procedure 
must declare the Pascal procedure to be either NEAR or FAR. The choice depends 
on the segmentation model used to compile the module containing the Pascal-86 
subprogram, and whether or not the subprogram is exported from its subsystem. 


To call an assembly language subprogram from Pascal-86, you must provide a Pascal 
definition of the external procedure in one of the PUBLIC sections in the interface 
specification. 


Use the following chart to determine the appropriate attribute for the ASM86 
subprogram. 


SMALL FAR NEAR 
COMPACT FAR NEAR 
LARGE FAR FAR 


J.4.5 Example: Pascal-86 Calling an Assembly Language 
Subprogram 


The following simple example shows a partial Pascal-86 program calling an ASM86 
subprogram SUBPRG, as shown in figure J-3. This example assumes that the default 
segmentation model LARGE is used. For examples using the other models, see the 
ASM86 Macro Assembler Operating Instructions. 
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system-id 8086/87/88/186 MACRO ASSEMBLER V2.0 ASSEMBLY OF MODULE EXMPL 
OBJECT MODULE PLACED IN EXMPL.OBJ 
ASSEMBLER INVOKED BY: ASM86.86 EXMPL.ASM 


LOC OBJ LINE SOURCE 
1 NAME EXMPL 
2 ; 
3 7 This program demonstrates procedure linkage to PASCAL~86, 
4 s focusing on the parameter passing conventions. 
5 ; 
6 2 This procedure takes five arguments for five parameters: 
7 7 a bytes a words an integers an integer variable and 
8 z an integer function. 
9 7 They are pushed onto the stack in that order. 
19 7 They must be popped at exit (with the RET instruction). 
11 ; 
12 > The prologue code saves BPs and points BP to the 
13 s structure defined below. After the prologue executess 
14 7 the stack looks like this: 
15 ; 
16 ; high memory 
17 _ tase sSsSe=SSS= 
18 ; | PARM1 } ---7> argument A 
19 Po ES A SS Sn a 
20 ? | PARM2 | 7cc-> argument 38 
21 2 9 Sees as a= 
22 rs | PARM3 | ----> argument C 
23 - SSeS e-s--SSse= 
24 ; | Csegment) |} 
25 - Rete PARME=-=s-= }----> argument 0 
26 ; i Coffset) |} 
27 B- | SSS cese=—oss= 
238 ; | Csegment) |} 
29 (rains PARMS--3--- } 
30 ; | Coffset >) [}----> argument FUNC 
31 eo PARMS-e3--- } 
32 ; | Cenvironment) {[} 
33 e086 SSS SS ee = SSS 
34 ; | (segment) | 
5 ; “Return Address- 
36 , | Coffset ) | 
37 A <SeeeoseeeSesssn 
38 7 | old OS | 
39 i °£x(S ees SSas > } saved in prologue 
40 ; | old BP | 
41 a0 8 ‘SSeS SSSose=se=S <~--SPs BP point to here 
42 ; low memory 
43 ; 
44 7 The required STRUCTURE definition is: 
45 ; 
<== 46 DSA STRUC 
47 
0000 48 OLD_8P OW ? * Prologue code saves 8° here 
0002 49 OLD_DS OW ? > Prologue code saves DS here 
9004 50 RETURN OD ? 2 Double word for FAR procedures 
0008 51 ENVIRON Ow ? > PARMS static link to environment 
ODOA 52 CODEPTR DD ? z Pointer to code of PARMS function 
QOO0E 53 PARMS OD ? + Pointer to variable 
9012 54 PARM3 Ow ? 7 A PASCAL~86 integer value 
00144 55 PARM2 OW ? 7 A PASCAL-86 enumeration in 16 bits 
0016 56 PARM1 03 ? y but is stored on stack in one word, 
0017 57 XXX 08 ? zs with the high order byte undefined 
58 
s-S5 59 DSA ENDS 
60 
61 s Inside the subprograms value arguments are accessed simply by 
62 7 using a STRUCTURE reference, with BP as the base, and the 
63 2 appropriate field name as the qualifiers example: [(3P].PARM3. 
64 ; 
65 s NOTE: The STRUCTURE fields for the arguments are declared in 
66 , reverse order in which they were pusheds due to the fact 
67 s the 8086 stack grows towards low memory. 
68 ; 
69 * The saved value of BP and the return address must be declared 
70 s in the structures since these two items are pushed between the 
71 * arguments and the spot pointed to by BP. 
72 ’ 
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SoS 73 SUBPRG_DATA SEGMENT s not combinable 
o000 ?? 74 ALLOCAL 03 ? 7 local variables go nere 
TS = 75 SUBPRG_DATA ENDS 

76 
a= 77 SUBPRG_CODE SEGMENT 7 not combinable 

78 ; 

79 7 SUBPRG does nothing but call the function PARMS5 and access 

39 + the first four arguments. The prologue code saves BP, and 

a1 7 then copies SP to 3P, allowing the value arguments to be 

82 » picked up conveniently with the BP register. 

33 ; 

34 PUBLIC SUS3PRG 
9090 85 SUBPRG PROC FAR 
0000 1& 3é PUSH cs 7 prologue codes preserve DS 
3091 B8---- R 87 MOV 4X,SUBPRG_DATA + address local data segment 

83 ASSUME CS:SUBPRG_CODE, OS:SU3PRG_DATA 
0004 55 89 PUSH BP + preserve 8P for PASCAL-86 
0905 8BEC 90 MOV 3P,SP 

91 

32 7 call the function argument PARMS 
0007 55 93 PUSd BP ¢ save BP across call 
0008 8B8F5 94 MOV SI-B8P 
O00A 8B6E08 95 MOV BP,CBPIJ.LENVIRON s establish static link 
Q00D 36FFS5SCOA 96 CALL SS:CSI].CODEPTR + indirect call to parms 
0011 50 3? POP BP 

98 
0012 8A4E14 99 MOV CL-C3P].PARM1 7 PARM1T is at BP+22 
3015 885614 199 MOV OX,CSPI.PARM2 - PARM2 is at BP+20 
0018 884612 401 MOV AX, CBPJ].PARM3 7 PARM3 is at BP+18 
GO18 C45E0E 102 LES BX, CBPI].PARMG , ptr to PARM4 is at BP+14 
OO1TE 268807 103 MOV AX,ES: [8X] 7 access PARMG 

1904 
0021 50D 105 POP BP 
0022 1F 106 POP os 
3023 Ca1000 107 RET 16 - return and POP 16 parameter bytes 

108 

109 SUBPRG ENDP 
ss=5 110 SUBPRG_CODE ENOS 

411 END 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


Figure J-3. An ASM86 Subprogram Called from Pascal-86 (Cont'd. ) 


The interface specification for the Pascal-86 program must contain a reference to the 
external procedure SUBPRG: 


PUBLIC SEPARATEMOD; 


PROCEDURE SUBPRGCbval:CHAR; 
wval:objects; 
ival: INTEGER; 


VAR ivar: INTEGER; 
FUNCTION ff: INTEGER); 


The value parameters for SUBPRG are BVAL (one byte), WVAL (one word) of type 
“objects” (‘‘objects” is defined elsewhere as an enumeration of greater than 256 but 
less than 32768 elements), and IVAL of type INTEGER. In addition, SUBPRG has 
a variable parameter IVAR of type INTEGER, and a functional parameter FF of 
type INTEGER. Assume that the Pascal-86 program assigns values to variables, and 
uses those variables and a function reference as arguments (A, B, C, D, and FUNC) 
in the statement that calls SUBPRG: 


SUBPRGCA,B,C,D,FUNC); C* Call SUBPRG with A,B,C,D,FUNC *) 


The arguments A, B, and C are passed using call by value to satisfy the parameters 
BVAL, WVAL, and IVAL. The arguments D and FUNC are passed using call by 
reference to satisfy the parameters IVAR and FF. The assembly language subpro- 
gram SUBPRG picks up the values of A, B, and C, the reference to D, and the address 
and static link to FUNC, by using an ASM86 structure to describe the stack, as 
shown in figure J-3. 
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J.5 Compatible Data Types 


Table J-5 presents the compatible PL/M-86, ASM86, and FORTRAN-86 data types 
for each Pascal-86 type. For run-time data representations of Pascal-86 types, see 


Appendix H. 


Table J-5. Data Types Compatible with Pascal-86 Data Types 


Pascal-86 Data Type PL/M-86 ASM86 Fortran-86 


CHAR, enumeration, unsigned 
subrange, or set stored in 8 
bits 


BOOLEAN 


INTEGER or subrange stored 
in 16 bits 


WORD, enumeration, or set 
stored in 16 bits, or subrange 
0..64K-1 


LONGINT 


Pointer (all models except 
SMALL(—CONST IN 
DATA—)) 


Pointer (SGMALL(—CONST IN 


DATA—) model) 
REAL 
LONGREAL 


TEMPREAL 


BYTE 


BYTE 
INTEGER 


WORD 


none 


POINTER (all models except 
SMALL(—CONST IN 
DATA—)) 


POINTER(SMALL (—CONST 
IN DATA—) model) or WORD 


REAL 


none 


none 


LOGICAL*1 
INTEGER*2 


INTEGER*4 


none 


none 


REAL 


REAL*8 or 
DOUBLE PRECISION 


TEMPREAL 


ARRAY(m..n) of same base! ARRAY none ARRAY** 

type 

RECORD of fields of match- | STRUCTURE STRUC none 

ing type 

PROCEDURE (argument|*PROCEDURE (argument{|PROC (no}SUBROUTINE 

definitions must match) definitions must match) argument |(argument definitions 
definitions) | must match) 


FUNCTION (argument defini-| “PROCEDURE (argument|none FUNCTION (argument 
tions and return types must] definitions and return types definitions and return 
match) must match) types must match) 


* See note, J.4.1 (Stack Usage). 
** Note that multi-dimensional arrays in Fortran-86 have their dimensions reversed relative to Pascal- 
86 arrays. 


J.6 Coding the Main Module in Other Languages 


Pascal-86 performs I/O and floating-point initialization right in the main module. 
Consequently, when combining PASCAL modules with modules written in other 
languages, it is expected that the main module is written in Pascal. However, you 
may want to code the main module in another language. If ycu code it in PL/M-86 
or ASM86, you must follow all five steps given below. If you want to code the main 
module in FORTRAN-86, you need only perform steps 2, 3, and 4. 


1. Initialize the Universal Transput System (UTS). To do this, the main module 
must call two parameterless external procedures, INITFP (or INIT87) and 
TQ_001. These perform floating-point and I/O initialization, respectively. (Note 
that INITFP unmasks the invalid exception, while INIT87 masks it.) 
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2. Allocate file variables for the predefined text files INPUT and OUTPUT, if 
necessary. All other files to be used in the Pascal portions of your system should 
be declared in the PUBLIC section of one of the Pascal modules. To allocate file 
variables for the INPUT and OUTPUT files, use the names PQ INPUT and 
PQ_OUTPUT, respectively. Include declarations of these file variables in the 
PUBLIC section of one of your Pascal modules, as follows: 


PUBLIC PASCMOD; 
VAR PQ_INPUT, PQ@_OUTPUT: TEXT; 


3. Initialize global Pascal files. To do this, the main module must set the first six 
bytes of each file variable to zero. 


4. Call a Pascal program that resets (opens) PQ_INPUT and PQ_OUTPUT to 
specific files and devices. To open these files, use the Pascal-86 built-in routines 
RESET and REWRITE. (RESET and REWRITE must be called from a routine 
coded in Pascal, since they do not follow the standard calling sequence). 


RESET CPQ@_INPUT, ‘*:CI: 7); 
REWRITE CPQ_L-OUTPUT, ‘*:C00:'); 


5. After the Pascal program has ended, call TQ_999, another parameterless exter- 
nal procedure, which performs I/O close-down. 


Figure J-4 is an example of a main module coded in PL/M-86; Figure J-5 is a sample 
Pascal-86 subroutine called from the main module. Note that LINK86 generates 
three “type mismatch” warnings that may be ignored. 


$LARGE 
main:do; 
declare realfile(€6) byte external 
declare (Cpq-input, pq-output)(6) 
declare i integer; 
declare y real; 
writeit: procedure(€x) external; 
declare x real; 
end writeit; 


byte external; 


initfp: procedure external; 
end initfp; 


tq-001: procedure external; 
end tq-001; 


tg-999: procedure external; 
end tq_999; 


do; 

do i= 0 to S43 
realfileC€i) = 0; 
pg-inputC€id = 0; 
pg-output(id = 0; 
end; 

call initfp; 

call tq_001; 

e104 Ss 

call writeitCy); 
call tq-999; 

end; 


end main; 


Figure J-4. PL/M-86 Main Module Calling Pascal-86 Subprogram 
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module ProcWithIQ; 


public ProcWithI!10Q; 
var PQ_INPUT, PQ@_-QUTPUT: text; 
RealFile: text; 
procedure Writeit(x:real); 
private ProcWithI0Q; 


procedure Writeit(€x:real); 

begin 
reset(PQ_INPUT, ‘*:CI:‘); 
rewrite(PQ_OUTPUT, ‘*:C0O:‘); 
rewrite(RealFile, ‘echo’); 
writeln(*PARAMETER PASSED 1S ‘%, x:8:4); 
write(*‘ INPUT ANOTHER REAL NUMBER’); 
readln(x); 
writeln(* THE NUMBER YOU ENTERED 157%, x:8:4); 
writeln(@RealFile, x:8:4) 

end; 


Figure J-5. Pascal-86 Subprogram Called from PL/M-86 Main Module 
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APPENDIX K 


RUN-TIME INTERFACE 


This appendix describes the run-time system that supports Pascal-86 programs, and 
shows how to interface an operating environment to the run-time system in order to 
execute Pascal-86 programs. Depending on the operating system you are using, you 
may be able to disregard this information. See your specific host-system appendix for 
details. 


The first section describes run-time interrupt handling and provides background 
information. You can use this information to supply your own interrupt handlers. 
(See your specific host-system appendix for information on real arithmetic interrupt 
handling.) 


The second section describes Pascal-86 run-time storage management. This includes 
a discussion of the heap mechanism for SMALL programs (see 10.3.18). You can 
use this information to supply your own memory managers. 


The third section describes the logical record interface, which is a set of procedure 
names and calling conventions that provide an interface between the Pascal-86 run- 
time support software and an operating system. You can provide your own proce- 
dures using these names and calling conventions in order to hook your own operating 
system or operating environment to this interface, and thereby use the Pascal-86 run- 
time software along with Pascal-86 programs in your own operating environment. 


A more detailed discussion of the run-time support system can be found in the :APX 
86,88 Run-Time Support Manual. 


K.1 Run-Time Interrupt Processing 


You need to read this section only if you intend to provide your own interrupt handlers 
and/or override the default handlers. 


There are two interrupt pins on the 8086 processor: the “non-maskable interrupt” pin 
(NMI) and the “maskable interrupt” pin (INTR). The ‘‘non-maskable interrupt” 
cannot be ignored by the processor, whereas the “‘maskable interrupt” can be enabled 
or disabled. 


Each “maskable interrupt” has an interrupt number that designates the type of inter- 
rupt. For example, interrupt number 4 tells the processor that an interrupt of type 4 
(integer overflow) is occurring, and the processor looks for the procedure associated 
with interrupt number 4 in order to execute the procedure to handle the interrupt. 


Interrupt numbers range from 0 to 255. Interrupt number 0 is reserved for integer 
divide-by-zero errors. Interrupt numbers | through 3 are reserved for single stepping, 
“‘non-maskable interrupts,” and the INT instruction, respectively. Interrupt number 
4 is reserved for integer overflow, and integer number 5 is reserved for compiler range 
checks. The run-time system uses interrupts 16 through 31. Interrupt number 16 is 
reserved for real arithmetic exceptions, and interrupt number 17 is reserved for stack 
overflow and case out-of-range checks. 


You can use other interrupt numbers for your own procedures. If you intend to override 
the default procedures provided for the above interrupt numbers, you must use the 
above interrupt numbers for those procedures. 


Run-Time Interface 


An interrupt occurs when the CPU receives a signal on its “maskable interrupt” pin 
from some peripheral device. The CPU responds, however, only if interrupts are 
enabled. The “main program prologue” (code inserted by the compiler at the begin- 
ning of the main program) does not alter the state of interrupts. (This differs from 
the PL/M-86 Compiler.) In other words, when you execute a Pascal program, the 
interrupts are in the same state as they were before execution. 


If interrupts are enabled, the following actions take place: 


1. The CPU issues an “acknowledge interrupt” signal and waits for the interrupting 
device to send an interrupt number. 


2. The CPU flag registers are placed on the stack (occupying two bytes of stack 
storage). 


3. Interrupts are disabled by clearing the IF flag. 
Single stepping is disabled by clearing the TF flag. 


5. The CPU activates the interrupt procedure corresponding to the interrupt number 
sent by the interrupting device. 


You can specify Pascal-86 procedures as interrupt procedures by using the INTER- 
RUPT control (10.3.11). Using the INTERRUPT control or the SETINTERRUPT 
built-in procedure (8.9.1), you can assign an interrupt number to each interrupt 
procedure. These interrupt numbers form an interrupt vector, which is an absolutely- 
located array of entries beginning at location 0. Thus, the nth entry is at location 4 
times n, and contains the address of the interrupt procedure associated with interrupt 
number n. Each entry is a four-byte value containing a segment address and an offset 
(i.e., a long pointer). 


The CPU uses the interrupt vector entry to make a long indirect call to activate the 
apptopriate procedure. At this point, the current code segment address (CS register 
contents) and instruction offset (IP register contents) are saved on the stack. 


An interrupt procedure can also be activated by a procedure statement. If you intend 
to use a procedure statement in a module to activate an external interrupt procedure 
in another module, you must use the INTERRUPT control in the PUBLIC decla- 
rations of the external interrupt procedure (in the interface specifications of both 
modules); otherwise, an error will occur during the linking process (LINK86). A 
procedure statement will activate the interrupt procedure as if an interrupt occurred, 
and the interrupt status will be altered as if an interrupt occurred. 


If an interrupt procedure terminates normally (other than by a GOTO statement), 
the interrupt mechanism and registers are reset to the condition that existed prior to 


the activation of the procedure. 


Figure K-1 shows the stack layout at the point where the procedure is activated. 


higher 
locations Flag reg. contents | 2 bytes 
ac 
xu Present regardless of 
z2| return segment address program size 
e>D 
no 
oO 


~<a—e Stack pointer 
lower 
locations 


Figure K-1. 8086 Stack Layout When Interrupt Procedure 
Gains Control 121539-41 
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K.1.1 Interrupt Procedure Preface and Epilogue 


At the beginning of each interrupt procedure, before the usual procedure prologue 
inserted by the compiler, the compiler inserts an interrupt procedure preface that 
performs the following actions: 


ly 
. Push the DS register contents onto the stack. 


oP NDR wD 


Push the ES register contents onto the stack. 


. Push the AX register contents onto the stack. 


Push the CX register contents onto the stack. 


Push the DX register contents onto the stack. 


Push the BX register contents onto the stack. 


Push the SI register contents onto the stack. 


Push the DI register contents onto the stack. 


Load the DS register with a new data segment address taken from the current 
code segment (i.e., the segment containing the interrupt procedure). 


Figure K-2 shows the stack layout at the point where the procedure prologue starts. 


Figure K-3 shows the stack layout after the procedure prologue is executed and the 
code compiled from the interrupt procedure body starts executing. 


When the interrupt procedure body finishes, the interrupt procedure epilogue contin- 
ues with the following steps: 


10. 
It. 
12. 
13. 
14. 


Pop the stack into the DI register. 


Pop the stack into the SI register. 


Pop the stack into the BX register. 


Pop the stack into the DX register. 


Pop the stack into the CX register. 


Figure K-2. 
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Figure K-3. 8086 Stack Layout during Execution of 
Interrupt Procedure Body 121539-43 


15. Pop the stack into the AX register. 
16. Pop the stack into the DS register. 
17. Pop the stack into the ES register. 


18. Execute an IRET instruction to return from the interrupt procedure. This restores 
the IP, CS, and flag register contents from the stack. 


At this point the stack is restored to the state it was in before the interrupt occurred, 
and processing continues normally. 


The INTERRUPT compiler control gives you the opportunity to associate an inter- 
rupt number with an interrupt procedure during compile time. You can also declare 
procedures as interrupt procedures without associating them to interrupt numbers, 
and create the interrupt vector at a later time, to be linked to the program. 


Similarly, you could have a library of interrupt procedures that are not yet associated 
with an interrupt vector. Any program could then have any of these procedures linked 
in, with a separately created interrupt vector. 


NOTE 


An interrupt procedure that uses any of the built-in functions EXP, LN, 
SIN, COS, TAN, ARCSIN, ARCCOS, ARCTAN, TRUNC, ROUND, 
LTRUNGC, or LROUND (functions in the CEL87.LIB run-time library) 
must allocate 50 bytes of 8086 stack space (200 bytes if the 3087 emulator 
is used) for each level of recursion. The 8087 chip or emulator cannot be 
accessed from both a Pascal interrupt procedure and a concurrent Pascal 
program unless the interrupt procedure saves the status of the 8087. 
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K.2 Pascal Run-Time Storage Management 


Pascal run-time storage management, required by the predefined procedures NEW 
and DISPOSE, is provided by two memory management systems. The Pascal compi- 
ler automatically determines which system to use, depending on what model of 
segmentation the program is compiled under. Programs compiled with the SMALL 
control (with —CONST IN DATA—) use 16-bit pointers and require that the storage 
allocated be in DGROUP. All other models use 32- bit pointers and have no restric- 
tion on what segment or group they point to. Both systems may be used in the same 
program if it contains both SMALL and non-SMALL subsystems. 


K.2.1 Memory Managers 
The SMALL Model 


The SMALL memory manager allocates storage from an area called the heap (by 
default, the entire MEMORY segment in DGROUP). If your program uses the NEW 
procedure, the memory manager will create this segment with a size of 4096 bytes. 
You may adjust the size of MEMORY at link time by using the LINK86 controls 
MEMPOOL or SEGSIZE. For example, using SEGSIZE(MEMORY(+0, 
OFFFFH)), the MEMORY segment will expand to fill DGROUP, whose maximum 
size is 64K. You can reduce the size of MEMORY below 4096 bytes, but LINK86 
will generate a warning. 


The memory manager determines the size of MEMORY from the size of DGROUP, 
which it gets by calling the UDI primitive DQGETSIZE. This is possible because 
the relocatable loader uses DQALLOCATE to get the storage for segments and 
groups. However, to use the SMALL memory manager with an absolute program 
(one located with LOC86), you must indicate the size of the heap to the memory 
manager. If you fail to do so, an exception occurs. 


You may override the default location and/or the size of the SMALL heap by 
providing your own version of the Logical Record System routine TQGETSMALL- 
HEAP. The memory manager calls this routine the first time an allocation request is 
made to determine the location and size of the SMALL heap. 


The TQGETSMALLHEAP primitive is called as a procedure and does not return a 
value, hence it cannot be a typed procedure. It receives three VAR WORD arguments 
that are assigned the following values: the offset in DGROUP of the start of the 
heap, the size of the heap (in bytes), and an exception code if it occurs. (The run- 
time system does not require non-zero exception codes.) 


The following is a sample PL/M-86 procedure heading for TQGETSMALLHEAP: 


TQGETSMALLHEAP: PROCEDURECOFFSET_PTR, 
SIZEoP TR 
EXCEPTION_PTR) PUBLIC; 
DECLARE OFFSET_POINTER POINTER, 
SIZESPTR (POINTER, 
EXCEPTION-PTR POINTER; 
END TQ@GETSMALLHEAP; 


The heap returned by TQGETSMALLHEAP must be entirely within DGROUP, 
and must be at least 16 bytes long. 


Refer to the Run-Time Support Manual for iAPX 86,88 Applications for more 
information on the SMALL heap. 
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The LARGE Model 


The LARGE memory manager is used for all subsystems that are not SMALL with 
(—CONST IN DATA—). This memory manager gets storage from the operating 
system by using the LRS routine TQALLOCATE. Memory is requested from the 
operating system in 1024-byte “pages.” All requests for 251 bytes or less are satisfied 
from these pages. If no page contains a large enough block of free storage, another 
page is requested from the operating system. When all of the storage in a page has 
been released by the Pascal program, the page is returned to the operating system 
through the LRS procedure TQFREE. Requests for more than 251 bytes are passed 
directly to TQALLOCATE. 


K.2.2 Reentrancy 


The LARGE model is designed so that it can be used in a multi-tasking environment. 
All of the non-reentrant code in the memory manager is in the run-time library 
P86RNO.LIB. Each task must contain its own copy of these library routines; simply 
link P86RNO.LIB to each task before they are linked together. If the individual tasks 
are not linked with the PURGE option before being linked together, LINK86 will 
generate warnings about duplicate publics. Refer to the Run-Time Support Manual 
for iAPX 86,88 Applications, Order Number 121776, to determine how each task 
interacts with its heap. The routines in P36RN1.LIB, P86RN2.LIB, and P86RN3.LIB 
are reentrant and may be shared among concurrently executing tasks. 


The SMALL memory manager is not reentrant, since all SMALL subsystems in a 
job share the same heap in the MEMORY segment of DGROUP. If you want more 
than one task to use the SMALL memory manager, you can supply your own version 
of TQGETSMALLHEAP that returns a different heap area to each task. You could 
also provide a synchronized Pascal program, ensuring that no two SMALL model 
tasks are executing a call toa NEW or DISPOSE procedure at the same time. 


K.2.3 Replacing the Memory Manager 


For some applications, such as interfacing to certain operating system routines, it is 
necessary for a pointer to have an offset part of 0. This type of pointer may be trans- 
lated to a two-byte SELECTOR (as in PL/M and RMX-86). Note that routines 
using pointers this way must be written in assembly language or PL/M, since Pascal. 
does not support tokens. You can also generate pointers with an offset of zero using 
the NEW procedure. Replace the normal memory manager with routines that pass 
all allocation and release requests directly to the UDI routines DQALLOCATE and 
DQFREE (or to the LRS routines TQALLOCATE and TQFREE). The Pascal 
compiler generates code to call the following routines for the LARGE memory 


manager: 
NEW 
Entry point: PQ_310 (FAR) 
Parameters: AX —size of area to allocate 
Returns: ES:BX —pointer to area allocated 
DISPOSE 
Entry point: PG_320 (FAR) 
Parameters: Stack I:Stack2 ——pointer to area to dispose 
AX —size of area 


Stack2 is the WORD on top of the stack, and Stack] is the second WORD from the 
top. The routines you write to replace the normal memory manager need to be linked 
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in before the first Pascal library P86RNO.LIB. This method cannot be used for 
SMALL programs, since the allocated storage must be in DGROUP. 


K.2.4 Memory Usage Summary 


The following values help determine the actual amount of memory that will be used 
by the program: 


SMALL Memory Manager: 


Overhead (per allocation)— 2 bytes (If necessary, another byte is used to make 
the length of the allocated storage block 


even. ) 
Global overhead — 6 bytes 
Minimum allocation — 6 bytes (without padding) 


LARGE Memory Manager (request < 251 bytes): 
Overhead (per allocation) 2 bytes (If necessary, another byte is used to make 
the length of the allocated storage block 


even.) 
Minimum allocation — 6 bytes (without padding) 
Size of page requested 
from operating system — 1024 bytes 
Overhead (per page) — 6 bytes 


LARGE Memory Manager (request > 251 bytes): 
Allocation requests are made to the operating system. 


The run-time system initialization routine (TQ-001) allocates an eighteen-byte data 
area for run-time system use. 


The Pascal I/O system also dynamically requests storage from the operating system. 
When a file is opened, a 48-byte file descriptor is allocated by the LRS procedure 
TQFILEDESCRIPTOR. The default TQFILEDESCRIPTOR uses DQALLO- 
CATE to allocate this storage. A file is opened when the first RESET or REWRITE 
is performed on it (including the implicit RESET and REWRITE performed on the 
files INPUT and OUTPUT). 


The default LRS also uses DQALLOCATE to allocate a 1054-byte buffer for each 
disk file that is opened. This buffer is returned to the operating system when the file 
is closed. 


The Pascal I/O system also allocates an 86-byte line buffer when a REWRITE is 
performed on a file of type TEXT or FILE OF CHAR. This buffer is allocated above 
the level of the LRS by using the LRS routine TQALLOCATE; its purpose is to 
improve the efficiency of output to a console. The buffer is released using TQFREE 
when a RESET is performed on the file or when the file is closed. The I/O system 
will not buffer the output to files of type TEXT or FILE OF CHAR if TQALLO- 
CATE returns a non-zero exception code. This allows you to write your own LRS 
without providing TQALLOCATE, yet still be able to use these files. 


K.2.5 Allocate a New Memory Block 


The run-time system calls this LRS allocation primitive whenever a Pascal-86 program 
uses the NEW procedure for dynamic memory allocation (to obtain memory blocks 
from the heap). The run-time system sends two argument values to this primitive: a 
WORD containing: the number of contiguous bytes to be allocated, and a POINTER 
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to a location where this primitive should return a status WORD containing an excep- 
tion condition (if an exception occurs). There are no exception codes required by the 
run-time system. 


The procedure you supply for this primitive must return the address of the first 
segment boundary of the memory block allocated for use by the Pascal-86 program. 


The following is a sample PL/M-86 typed procedure heading for the TQALLO- 
CATE primitive: 


TQALLOCATE: PROCEDURECSIZE,STATUS_PTR) SELECTOR PUBLIC; 
DECLARE SIZE WORD; 
DECLARE STATUS_PTR POINTER; 
DECLARE MEM_SEL SELECTOR; 


RETURN MEM_SEL; 
END TQALLOCATE; 


The argument sent to the SIZE word parameter contains the number of contiguous 
bytes of memory that the Pascal-86 program wants to obtain from the heap. The 
argument sent to the STATUS_PTR pointer parameter is the location where the 
TQALLOCATE procedure should return a status WORD with an exception code if 
an exception occurs (an exception code is not required). In addition, the TQALLO- 
CATE procedure must return MEM_SEL, a SELECTOR containing the address of 
the first segment boundary of the obtained block of memory. 


Your TQALLOCATE primitive can allocate memory with a byte granularity of 
sixteen, since the run-time system has a memory manager to manage large blocks. 


K.2.6 Free a Previously Allocated Memory Block 


The run-time system calls this LRS primitive to free the block of memory obtained 
by the TQALLOCATE primitive described in the previous section. When a 
Pascal-86 program uses the DISPOSE procedure to dispose of the memory obtained 
from the heap, the run-time system calls this TQFREE primitive to return the memory 
to the heap. 


The TQFREE primitive is called as a procedure, and it does not return a value (hence 
it cannot be a typed procedure). The primitive receives a SELECTOR argument 
containing the address of the first segment boundary of a memory block obtained via 
the TQALLOCATE primitive described in the previous section. The primitive also 
receives a pointer to a location where the primitive should place a status WORD with 
an exception code if an exception occurs (no exception codes are required for the run- 
time system). 


The following is a sample PL/M-86 procedure heading for the TQFREE primitive: 


TQFREE: PROCEDURECMEM_SEL, STATUS_PTR) PUBLIC; 
DECLARE MEM_SEL SELECTOR; 
DECLARE STATUS_PTR POINTER; 


END TQFREE; 
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K.3 Logical Record Interface 


Intel provides a logical record interface that allows you to hook an operating environ- 
ment or application-dependent device drivers to the run-time support system for 
Pascal-86. 


The diagram in figure K-4 shows typical execution paths for Pascal-86° programs. 
The default path uses the interface libraries to the Series III operating system. If you 
intend to use this path, you do not need the information in this appendix. 


Another path shows a deviation at level (2), where you can interface your own logical 
record system to the logical record interface. Your logical record system would be a 
collection of primitives, file drivers, and/or device drivers, or an interface library to 
your own operating system. 


You can also use Intel’s logical record system at level (2) and hook your own operat- 
ing system to it at level (3), as shown. To hook your own operating system to Intel’s 
logical record system and run-time system, you have to supply primitives that have 
the same names as the primitives used to interface the Series II] operating system 
with the Pascal-86 run-time system and logical record system. A list of the names 
appears at the end of this appendix. 


Real arithmetic support (via the 8087 or emulator) is not depicted in this diagram, 
but you must use either the 8087 processor and its library (8087.LIB), the emulator 
and its library (E8087, E8087.LIB), or 87 NULL.LIB for floating-point programs, as 
described in Chapter 12. 
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Figure K-4. Execution Paths for Pascal-86 Programs 121539-44 
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The Pascal-86 run-time support system at level (1) in figure K-4 considers a file to 
be a series of logical records. A logical record contains exactly one object of a non- 
text file, or one line of a text file. 


A user-defined logical record system that interfaces to the run-time system at level 
(2) in figure K-4 must be able to store a logical record in a physical record on a 
storage medium (such as a disk), and must be able to delimit such records. The run- 
time system uses the logical record interface primitives to call the user-defined logical 
record system, which formats logical file records onto physical media either explicitly 
through a set of device drivers, or implicitly through a set of file drivers and an 
operating system. 


The logical record interface consists of a set of calling sequences to primitives; you 
substitute your own procedures or functions using the names of these primitives, which 
in turn use your logical record system routines. The primitives can be written in 
PL/M-86 (conforming to the LARGE model of segmentation), Pascal-86, or ASM86. 
The run-time system requires that some of these primitives return a status word to 
indicate a status or exception condition, which directs the functionality of the run- 
time system. 


If you code your logical record system in Pascal-86, in some cases you will have to 
supply your own operating system primitives to provide the run-time support for your 
logical record system (since the supplied run-time system relies on the default logical 
record system, or your logical record system). If you code them in PL/M-86 or in 
ASM686, you won’t need run-time support for your logical record system; therefore, 
we show sample procedure headings in PL/M-86. 


The following descriptions show sample PL /M-86 procedure headings, with param- 
eter lists for each procedure you should supply. You use these parameters to pick up 
arguments sent to these primitives from the run-time system. In Pascal-86, these 
primitives must be functions in order to return a status value; in PL/M-86, they must 
be typed procedures. 


These parameters are described in terms of PL/M-86 data types. For a table of 
Pascal-86 data types and their corresponding PL/M-86 types, see Appendix J of this 
manual. Appendix J also describes the universal calling sequence used by Pascal-86 
and other iAPX 86,88 family languages, so that modules written in one of these 
languages can easily call modules written in another. 


The logical record system you supply must handle file input/output, file preconnec- 
tion, exception conditions, and memory (heap) allocation. You can, however, use Intel’s 
logical record system (default primitives) found in library P86RN2.LIB, and still 
provide your own device drivers by supplying your own TQDEVICE primitive (K.3.2), 
as long as you link in your TQDEVICE primitive and device drivers before linking 
in the P86RN2.LIB library (in order to override default external references). 


The logical record system you supply must set up two data structures: a file/device 
descriptor used by both the run-time system and your logical record system to hold 
status information about each file or device (one descriptor for each file or device), 
and a file/device driver table defined by your logical record system that provides the 
addresses of your file/device driver routines. The P86RNO.LIB and P86RN1.LIB 
libraries do not perform any buffering. Depending on your execution environment, 
you may want to implement buffering in your logical record system to improve execu- 
tion speed. 


After writing your logical record system primitives, you must follow the linking 
conventions described in K.3.7 to link them to your Pascal-86 program modules. 
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K.3.1 Setting Up the File/Device Descriptor 


The run-time system calls the TQFILEDESCRIPTOR primitive after a file precon- 
nection, or before a call to open a file if there is no file preconnection, to set up a 
block of memory (called a file/device descriptor) used to store attributes of a file or 
device. This block of memory is reserved for the file or device attributes until the file 
is closed. After the file is closed, the file /device descriptor block is used again by the 
run-time system for other files. Replace this primitive only if you are not using a 
UDI operating system. 


The file/device descriptor must be 48 bytes, and must start on a segment boundary 
(i.e., it must begin at a location that is a multiple of 16 bytes). The initial (least 
significant) 16 bytes of the file descriptor are for your file attributes—the run-time 
system does not disturb this area if you are also providing your own device drivers 
(discussed in the next section). The run-time system uses the last (most significant) 
32 bytes to contain file management information. 


The run-time system expects the TQFILEDESCRIPTOR primitive to have one 
parameter and to return one value, and it must be declared to be public. The 
TQFILEDESCRIPTOR primitive returns a status WORD value that holds an 
exception condition code if an exception occurs, but none are required by the run- 
time system (the exception codes required for the other primitives are listed in K.3.6). 
The run-time system calls TQFILEDESCRIPTOR in an assignment statement: 


STATUS=TQFILEDESCRIPTORCFDSEGPTR) 


The following is a sample PL/M-86 typed procedure heading for the TQFILEDES- 
CRIPTOR primitive: 


TQFILEDESCRIPTOR: PROCEDURECFD_SEG_PTR) WORD PUBLIC; 
DECLARECFD_SEG_PTR) POINTER; 


END TQ@FILEDESCRIPTOR; 


The primitive receives an argument for the POINTER parameter FD_SEG_PTR, 
which contains the address for a SELECTOR that contains the selector of the file 
descriptor. This selector word is sent as an argument to the parameter FD_SEL used 
in every device driver. 


Since TQFILEDESCRIPTOR is a PL/M-86 typed procedure, it must use a 
RETURN to return the WORD status value. If you intend to code it in Pascal-86 as 
a function, the function must assign the status value to the name of the function 
(TQFILEDESCRIPTOR). 


K.3.2 Connecting File/Device Drivers 


Routines that actually transfer data and communicate with external files or devices 
are called file/device drivers. The run-time system provides two default drivers in 
P86RN2.LIB and P86RN3.LIB: one for text files, and one for non-text files. The 
run-time system assumes that ten actions can be performed for each file: opening the 
file, closing the file, reading, writing, moving forward, marking the end of a record, 
rewinding, seeking, marking the end of a file, and getting information about a file. 


K-11 


Run-Time Interface 


K-12 


The Logical Record System (LRS) interface has been modified to accommodate 
random I/O. If you have written your own LRS interfaces, and if you plan to use the 
random access [/O capability, you will be affected by this change. (If you use the 
random access feature and Intel libraries, you will be able to use this I/O capability 
immediately.) 


The random access features will use two UDI primitives, DQFILEINFO and 
DQSEEK, which previously were not used by Pascal-86. Thus, if you have written 
your own UDI interface but did not implement all the UDI primitives, you must add 
these before using random access I/O. 


Two new entries have been added to the device driver table: file information and an 
entry reserved for future use. The new device driver table is shown in figure K-5. 


You can replace or supplement these drivers with your own drivers that communicate 
with your operating environment by formatting your driver routines to correspond to 
the calling sequence and parameter lists that the run-time system expects to find. 
The run-time system uses the default drivers unless you explicitly create your own 
TQDEVICE primitive as part of your logical record system. If you supply your own 
TQDEVICE, you can associate a file with your own set of drivers. To supply your 
own TQDEVICE primitive, use the name TQDEVICE, declare it to be public, and 
follow the module linking conventions described in K.3.7. 


Before opening any file, the run-time system calls TQDEVICE and sends arguments 
for three parameters: a POINTER to the physical filename, a BYTE containing the 
length of the filename, and a POINTER to the base of a table containing the addresses 
of the drivers. TQDEVICE must return a WORD status value containing a zero if it 
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is successful, or an exception code if an exception occurs. The following is a sample 
PL/M-86 typed procedure heading for the TQDEVICE primitive: 


TQDEVICE: PROCEDURECNAME_PTR, 
NAME_LENGTH, 
DRIVER_-TABLE_-PTR) WORD PUBLIC; 
DECLARE DRIVER_BASE BASED 
DRIVER_TABLE_PTR POINTER; 
/* Assign the new table base to 
DRIVER-BASE to override the 
default assignment */ 
DECLARE CNAME_PTR,DRIVER_TABLE_PTR) POINTER; 
DECLARE NAME_LENGTH BYTE; 


END TQDEVICE; 


If you wish to provide device drivers for some but not all files, yur TQDEVICE 
primitive should examine the filename by using the pointer NAME_PTR (and the 
length byte NAME_LENGTH) to find the filename. For files that need your new 
set of device drivers, your primitive would alter the value pointed to by DRIVER- 
_TABLE_PTR, in order to use the new base address of your table of driver addresses 
(as described below). For files that need the default device drivers supplied for the 
Intel Series III operating system, your primitive would no? alter the value pointed to 
by DRIVER_TABLE_PTR, and the base address for the default table would be used. 


To supply your own set of device drivers, you must write the drivers and place the 
address of each driver in a file/device driver table, as shown in figure K-5. Each 
driver is described following this table. Your version of TQDEVICE would use the 
base address of this table (the address of the driver to open a file) as the value pointed 
to by DRIVER_TABLE_PTR for any file that needs this table of drivers. You can 
easily create alternatives in your TQDEVICE for certain files that need different 
kinds of drivers. 


Since the run-time system calls these drivers by using the addresses in this table, the 
drivers themselves do not have to have special names. These drivers are described 
below. 


Open a File 


Before the run-time system performs any input/output, it calls a driver to open a file 
by using the address in the file/device driver table shown in figure K-5. To open a 
file, the file must be already rewound; i.e., the “file pointer’ must be pointing to the 
beginning of the file. The following is a sample PL/M-86 typed procedure heading 
for the OPEN_FILE.driver: 


OPEN_-FILE: PROCEDURECFD_SEL, NAME-_PTR, 
NAME_LENGTH, ATTRIBUTE, 
REC_-LENGTH) WORD PUBLIC; 
DECLARE CFD_SEL, ATTRIBUTE, REC_LENGTH) 
SELECTOR; 
DECLARE NAME_PTR POINTER; 
DECLARE NAME_LENGTH BYTE; 


END OPEN-FILE; 
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This driver must be a typed procedure that returns a WORD value containing either 
an exception code if an exception occurs, or zero if the open action is successful. The 
run-time system obtains the arguments for the NAME_PTR pointer and the 
NAME_LENGTH byte from either the Pascal-86 program (the object module) or 
the TQGETPRECON primitive (described in K.3.4). If the argument for 
NAME_LENGTH equals zero, the driver should assume that it is a scratch file to 
be deleted after the close file operation. 


The argument for the FD_SEL selector parameter comes from _ the 
TQFILEDESCRIPTOR primitive described in K.3.1. The argument for the 
REC_LENGTH word parameter is the record length to be associated with the file, 
supplied by the Pascal-86 program (the object module); a value of zero indicates that 
the record length is variable, as in a text file. 


The argument for the ATTRIBUTE word parameter contains information and file 
attributes that your OPEN_FILE driver can use or ignore, depending on whether the 
information and attributes are relevant for the device you are associating with the 
file. The bits of this WORD are defined as follows: 


Bits 0, 1—reserved, set to 00. 
Bit 2— reserved, set to 0. 


Bit 3--form of file: 
0—non-text file. The file will contain binary data, not character data. 


1—-text file. The file will contain character data. The run-time system will not 
perform run-time checks on input or output. 


Bit 4— reserved. 
Bit 5—reserved, set to 0. 


Bit 6—interactive file: 
O—not interactive file. 


1— possibly interactive file. The device should be treated as an interactive console 
(indicating a file of type CHAR). 


Bit 7—reserved, set to 0. 
Bits 8 and 9—mode of file: 
0—destructive write only. The file can only be written to (as after a REWRITE). 
01—read only. The file can only be read (as after a RESET). 
10—reserved 
11—update. The file can be written to. 


The remaining bits are reserved. 


Close a File 


The run-time system calls this driver to close a file by using the address provided in 
the file/device driver table shown in figure K-5. The run-time system reuses the file / 
device descriptor for the next open file operation; that is, it will avoid calling the 
TQFILEDESCRIPTOR primitive. This driver returns a status WORD with an 
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exception code if an exception condition occurs (none are required by the run-time 
system). 


The following is a sample PL/M-86 typed procedure heading for the CLOSE_FILE 
driver: 


CLOSE_FILE: PROCEDURECFD_SEL, DISPOSE) WORD PUBLIC; 
DECLARE FD_SEL SELECTOR; 
DECLARE DISPOSE BYTE; 


END CLOSE FILE 


The argument for the FD_SEL selector parameter is the same as the argument in 
the OPEN_FILE driver, described in the previous section. The argument for the 
DISPOSE byte parameter can be ignored by this driver. 


Read a Block from a File 


The run-time system calls this driver to read a block of data from a file. This driver 
must return a status WORD containing an exception code if the end of a record or 
the end of the file condition is reached. These codes are listed in K.3.6. The following 
is a sample PL/M-86 typed procedure heading for the READ_BLOCK driver: 


READ_BLOCK: PROCEDURECFD_SEL, BUFFER, 
COUNT, ACTUAL_-PTR) WORD PUBLIC; 
DECLARE CFD_-SEL, COUNT) SELECTOR; 
DECLARE C(CBUFFER,ACTUAL_PTR) POINTER; 


END READ_BLOCK; 


The argument for FD_SEL comes from the TQFILEDESCRIPTOR primitive 
described in K.3.1. The other arguments are sent from the run-time system. The 
argument for the BUFFER pointer parameter is the base address of an area where 
this driver must store the block of data read. The argument for the COUNT word 
parameter is the length in bytes of the data item to be read. The driver should store 
the actual number of bytes read in the WORD addressed by ACTUAL_PTR. 


For files that have fixed-length records, the run-time system never tries to read more 
bytes than the fixed number defined for the record. However, this read block driver 
must be able to recognize the end of a record, and be able to position the “file pointer” 
to the beginning of the next record for each read operation. This record delimiter 
might be the carriage return/line feed (CR/LF) combination (for text files) or a gap 
between records on a tape drive. 


Write a Block to a File 


The run-time system calls this driver to write blocks of data to a file. The run-time 
system calls this driver by using the address found in the file/device driver table 
shown in figure K-5. There might be more than one call to this driver to write an 
entire record, and this driver must handle any buffering. After calling this driver, the 
run-time system calls the ‘““mark end of record” driver to mark the end of a record, 
even if the records are fixed in length. 
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The following is a sample PL/M-86 typed procedure heading for the 
WRITE_BLOCK driver: 


WRITE_BLOCK: PROCEDURECFD_SEL, BUFFER, 
COUNT) WORD PUBLIC; 
DECLARE CCOUNT) WORD; 
DECLARE CFB_SEL) SELECTOR; 
DECLARE BUFFER POINTER; 


END WRITE-BLOCK; 


This driver returns a status WORD that contains the exception code of an exception 
condition if one occurs (none are required by the run-time system). The argument 
for the FD_SEL selector parameter comes from the TQFILEDESCRIPTOR primi- 
tive described in K.3.1. This driver uses the argument for the BUFFER pointer 
parameter as an address to find the data to be written, and it uses the argument for 
the COUNT word parameter as the length of the data block to be written. 


Seek In A File 


This routine is called for files opened for direct access to position the file pointer 
before a read or write operation. The run-time system calls this routine by using the 
address found in the table in figure K-5. The following is a sample PL/M-86 typed 
procedure heading for the SEEK driver. 


SEEK: PROCEDURE CFD, MODE, HIGHSOFFSET, LOWSOFFSET) WORD 
PUBLIC REENTRANT; 
DECLARE FD SELECTOR, 
MODE BYTE, 
LOWSOFFSET WORD, 
HIGHSOFFSET WORD; 


END SEEK; 


where 
FD identifies the file descriptor for the file to be affected. 


LOW$SOFFSET _ together form a four-byte (DWORD) unsigned integer (here 

HIGHS$OFFSET called offset) that represents either a position in the file or 
the number of bytes to move the file position pointer, depend- 
ing on the setting of mode. 


MODE indicates the type of seek required. The values of mode are 
defined as: 


0 — Seek to the record number specified in offset. 
Note that the first record of a file is record number 1. 


1 — Move file pointer back by offset bytes within current 
record. 


2 — Set file pointer to offset within current record. 


3 — Move file pointer forward by offset bytes within current 
record. 


4 — Move file pointer to end of file. 
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This is a typed procedure (function). The value of the procedure is a WORD that 
indicates the result of calling this procedure. The required exception code is ESOK 
and the RTNULL version will cause processing to halt. Modes | through 4 are not 
currently supported or required. 


Move Forward to the End of the Record 


The run-time system calls this driver to skip to the end of the record and prepare the 
file for the next sequential access. The run-time system uses the address in the file/ 
device driver table shown in figure K-S to call this driver. This driver is caJled whenever 
the processing of a record has finished, even if the record was only partially read. 


The following is a sample PL/M-86 typed procedure heading for the MOVE_ 
FORWARD driver: 


MOVE_FORWARD: PROCEDURECFD_SEL) WORD PUBLIC; 
DECLARE FD_SEL SELECTOR; 


END MOVE_FORWARD; 


The argument for the FD_SEL selector parameter comes from the TQFILEDES- 
CRIPTOR primitive described in K.3.1. This driver must return a WORD contain- 
ing a zero for a successful move operation, or the exception code for an end of file if 
that condition occurs. The exception codes are listed in K.3.6. 


Mark the End of a Record 


The run-time system calls this driver every time output to a particular record is 
completed. Your driver should mark the file as appropriate for the device associated 
with the file. For a file with fixed-length records, the driver may either increment the 
record pointer or pad the rest of the record with a distinguishable character. A call 
to this driver implies that the program has terminated output to the record, and that 
the rest of the record is either undefined or defined by this driver. 


The following is a sample PL/M-86 typed procedure heading for the END_RE- 
CORD driver: 


END_RECORD: PROCEDURECFD_-SEL) WORD PUBLIC; 
DECLARE FD_SEL SELECTOR; 


END END_RECORD; 


The argument for the FD_SEL selector parameter comes from the TQFILEDES- 
CRIPTOR primitive described in K.3.1. This driver returns a status WORD that 
contains the exception code of an exception condition if one occurs (none are required 
by the run-time system). 


Rewind a File 


The run-time system calls this driver to rewind a file, and the driver rewinds by moving 
the “file pointer” to the beginning of the file. Nothing occurs for devices that cannot 
rewind. The driver returns a status WORD that contains the exception code of an 
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exception condition if one occurs (none are required by the run-time system.) The 
following is a sample PL/M-86 typed procedure heading for the REWIND driver: 


REWIND: PROCEDURECFD_SEL,MODE) WORD PUBLIC; 
DECLARE FD-SEL SELECTOR; 
DECLARE MODE BYTE; 


END REWIND; 


The argument for the FD_SEL selector parameter comes from the TQFILEDES- 
CRIPTOR primitive described in K.3.1. The argument for the MODE byte param- 
eter is the value specified in bits 8 and 9 of the ATTRIBUTE word parameter for 
the OPEN_FILE driver. When the file is rewound, the MODE byte defines subse- 
quent access rights to the file. 


Mark the End of a File 


The run-time system calls this driver to mark the current position of the file pointer 
as the end of the file. The following is a sample PL/M-86 typed procedure heading 
for the ENDFILE driver. 


ENDFILE: PROCEDURE (CFD) WORD PUBLIC REENTRANT; 
DECLARE FD SELECTOR; 


END ENDFILE; 


This driver returns a status WORD that contains the exception code of an exception 
condition if one occurs (none are required by the run-time system). The argument 
for the FD parameter is the file descriptor for the file to be affected. If data is beyond 
the location indicated by the current file pointer, that data is truncated. 


Get File Information 


The run-time system may obtain information about a file by using the address provided 
in the file/device driver table shown in figure K-5. Following is a sample PL/M-86 
typed procedure heading for the FILE_INFORMATION driver. 


FILE-INFORMATION: PROCEDURE CFD, FILE_INFO_P) WORD; 
DECLARE FD SELECTOR; 
DECLARE FILE_INFO_P POINTER; 


END FILE_INFORMATION; 
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where FD identifies the file descriptor for the file to be affected and FILE_INFO_P 
is a POINTER to an area of memory with the following format: 


DECLARE FILE_INFO_STRUCTURE ( 
CURR_POS DWORD, 
FILE_LEN DWORD, 
RESERVED (2) WORD); 


CURR_POS is the record number at which the file is currently positioned, 
FILE_LEN is the record number of the last record in the file, and RESERVED is a 
two-word field that is reserved for future use. 


K.3.3 Initialize the Logical Record System 


The run-time system calls this initialization primitive before calling any primitive in 
the logical record system. You supply your own initialization primitive to initialize 
your logical record system, initialize any devices or tables you need for your logical 
record system, initialize the preconnection table of logical files connected to physical 
files, and provide your own semaphore mechanisms so that the run-time system can 
protect critical regions of code. In short, the run-time system calls this primitive to 
allow you to provide whatever special mechanisms you need to operate the run-time 
system in your environment. Do not replace Intel’s default initialization primitive 
unless you are supplying your own logical record system. 


The following is a sample PL/M-86 typed procedure heading for the TQINITIAL- 
IZE primitive: 


TQINITIALIZE: PROCEDURECLRI_-DATA_PTR) WORD PUBLIC; 
DECLARE LRI_DATA_-PTR POINTER; 


END TQINITIALIZE; 


The argument sent for the LRI_.DATA_PTR pointer parameter is the address of a 
location where this primitive must store a WORD. This WORD must contain the 
root address of a linked list of logical and physical file names which make up your 
preconnection table. This WORD will be used as an argument to a parameter of the 
TQGETPRECON primitive described in the next section. This primitive also returns 
a status WORD that may contain an exception code if an exception occurs (the run- 
time system does not require an exception code). 


K.3.4 Return Physical File Name for Preconnection 


The run-time system calls this primitive to obtain the physical file name to be associ- 
ated with a Pascal-86 logical name by means of a file preconnection specification on 
the command line that executes a Pascal-86 program. (See 12.4 for a description of 
preconnecting files on the execution command line.) 


This primitive must return a BYTE value for the length of the physical file name, 
and it must store a-pointer to the physical file name at a location specified by an 
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argument to the primitive. The following is a sample PL/M-86 typed procedure 
heading for the TQGETPRECON primitive: 


TQGETPRECON: PROCEDURECUNIT,L_FILENAME_PTR, 

L-FILENAME_LENGTH, 
P_FILENAME_PTR, 
PRECON_-ROOT) BYTE PUBLIC; 

DECLARE CUNIT,L-FILENAME_LENGTH) 
BYTE; 

DECLARE CL_FILENAME_PTR, 
P_FILENAME_PTR) POINTER; 

DECLARE PRECON_ROQT WORD; 

DECLARE P_FILENAME_LENGTH BYTE; 


RETURN P_LFILENAME_LENGTH; 
END TQGETPRECON; 


The argument sent for the UNIT byte parameter has no use in Pascal run-time 
preconnection. The argument sent for the L-FILENAME_PTR pointer parameter 
is the address of the location where the logical file name is stored. The argument sent 
for the LLFILENAME_LENGTH byte parameter is the length (in bytes) of the 
logical file name. Your primitive must use the pointer in L_FILENAME_PTR and 
the length in L_FILENAME_LENGTH to pick up the logical file name. 


The argument sent for the P_FILENAME_PTR pointer parameter is the address of 
the location where your primitive must store a pointer to the physical file name to be 
associated with the logical file name. The physical file name’s length is the return 
value of the function, so that the run-time system can pick up the physical file name. 
If your primitive returns a zero as the physical file name’s length, then the run-time 
system will assume that a match for the logical file name was not found in the 
preconnection linked list. The root of the preconnection linked list is sent for the 
PRECON_ROOT word parameter—this argument comes from the initialization 
primitive (TQINITIALIZE) described in the previous section. 


K.3.5 Exit from the Logical Record System 

The run-time system calls this primitive to terminate the logical record system. You 
can supply your own primitive to perform any routine measures you need to close 
down your logical record system. The TQEXIT primitive must not return a value 
(hence it cannot be a typed procedure). 


The following is a sample PL/M-86 procedure heading for the TQEXIT primitive: 


TQEXIT: PROCEDURECTERMINATION_TYPE) PUBLIC; 
DECLARE TERMINATION_TYPE WORD; 


END TQEXIT; 
The run-time system sends either a zero or a one as an argument for the TERMI- 
NATION_TYPE word parameter. A zero means a normal termination, and a one 


means a termination as a result of an exception condition. 


The run-time system uses a normal call to this primitive, and the primitive must not 
return. 
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K.3.6 Run-Time Exception Handling 


The run-time system expects the operating environment (your operating system or 
the device driver system) to provide the address of the exception handling procedure. 
The run-time system calls this exception handler using this address. 


To provide this address, you can implement two primitives in your logical record 
system: TQSETERH to establish the current exception handler, and TQGETERH 
to provide the address of the current exception handler to the run-time system. 


The following is a sample PL/M-86 procedure heading for the TQSETERH 
primitive: 


TQSETERH: PROCEDURE C(PROC_ADDR) PUBLIC; 
DECLARE PROC_ADDR POINTER; 


END TQSETERH; 


The TQSETERH primitive must allocate a storage area to store the address of the 
current exception handler. The TQGETERH primitive must return a POINTER in 
the location specified by the run-time system so that the run-time system can call the 
current exception handler. The following is a sample PL/M-86 procedure heading 
for the TQGETERH primitive: 


TQGETERH: PROCEDURE CPROC_ADDR_PTR) PUBLIC; 
DECLARE PROC_ADDR_PTR POINTER; 
DECLARE PROC_ADDR BASED PROC_ADDR_PTR POINTER; 


END TQGETERH; 


The following exception condition is in operating environment exception returned by 
the default logical record system or your system to the run-time system: 


1501H Command line preconnection facility has detected an invalid 
preconnection syntax. 


The run-time system expects to receive the following status codes from some of the 
primitives and drivers in the default logical record system or your system: 


ee 
15FFH 
15FEH 
The exception code range 1520H to 15FFH is reserved for exceptions you can define 
for your logical record system. 


A read was attempted but the “file pointer’ pointed to the 
end of the file. 


A read was attempted past the end of a record. 
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K.3.7 Linking Conventions 


To link your own set of logical record system primitives with the required library 
modules and Pascal-86 modules, specify on the linker’s command line your logical 
record system module after specifying the other modules, so that references to the 
logical record system primitives that are in the run-time system libraries will be 
satisfied. 


In addition, you must link in the null library RTNULL.LIB to resolve run-time system 
references to the default primitives you are not using. If, however, you are using some 
of the default primitives found in the default libraries P86RN2.LIB and/or 
P86RN3.LIB, and you link in these default libraries, then you do not need 
RTNULL.LIB. 


If you are using the default libraries P86RN2.LIB and P86RN3.LIB (the default 
logical record system), yet you wish to supply some device driver primitives to override 
the default primitives, then link in your device driver primitives (and your version of 
the TQDEVICE primitive described in K.3.2) before linking in the default libraries 
P86RN2.LIB and P86RN3.LIB. 


For more examples of linking modules and for more information about the linking 
and locating process, see Chapter 12 or your specific operating-system appendix. 


K.3.8 Interfacing to the Default Logical Record System 


To use Intel’s logical record system (the libraries P86RN2.LIB and P86RN3.LIB) 
with your own operating system (other than an Intel operating system), you have to 
provide primitives with the same names as the following primitives, and link your set 
of primitives in place of the LARGE.LIB library used for the Series III. The names 
are: 


DQ$ALLOCATE 

DQ$FREE 

DO$GETS$SIZE 
DO$STRAP$EXCEPTION 
DO$GET$EXCEPTION$HANDLER 
DQS$EXIT 

DOQ$DELETE 

DOSATTACH 

DQSOPEN 

DQ$CREATE 

DQ$CLOSE 

DO$DETACH 

DQ$READ 

DQSWRITE 

DOQSSPECIAL 

DQ$SEEK 

DO$TRUNCATE 
DO$GET$CONNECTIONS$STATUS 
DOSGETSARGUMENT 
DO$FILESINFO 


For details on the Intel versions of these primitives, see the Intellec Series III Micro- 
computer Development System Programmer’s Reference Manual, Order Number 
121618. 
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This appendix contains information that is specific to the Intellec Series III Micro- 
computer Development System. It covers the following areas: 


¢ Compiler invocation and file usage 

¢ Sample link, locate, and execute operations — 
¢ Examples of compiler control invocation lines 
¢ Interrupt handling on the Series III 

¢ Related publications 


L.1 Compiler Operation 


The Pascal-86 compiler is a program that translates your Pascal instructions into 
object code modules that can be linked and located for execution. 


You create a Pascal program by typing instructions into a file using the CREDIT 
text editor, and submitting the file to the Pascal-86 compiler. The file you submit is 
called a source file, and the file containing the compiled program is called an object 
file. (The content of the object file is also known as object code.) In Pascal-86 you 
can compile parts of a program, and each separate compilation is known as an object 
module. 


The following discussions assume that you have a Series III system up and running, 
and that you have a suitable copy of the Pascal-86 compiler. Chapter 1 of this manual 
leads you through a complete program development sequence using a sample Pascal 
program supplied with the compiler. Details on the operating system environment are 
provided in the Jntellec Series III Microcomputer Development System Console 
Operating Instructions, Order Number 121609. 


L.1.1 Invoking the Compiler 


You invoke the Pascal-86 compiler by using the RUN command. The RUN command 
is used to load and execute any program specifically in the 8086 environment for the 
Series III system. The following is a sample compiler invocation: 


mRUN PASC86& PROG1.SRC XREFCecr) 


The name PASC86 is the name of the compiler as supplied, without the extension 
(i.e., the full name is PASC86.86, but you don’t supply the .86 extension in the 
invocation line). PROG1!.SRC is the name of the source file that contains the Pascal 
instructions. XREF is a primary control which tells the compiler to generate a cross- 
reference listing of source program identifiers (XREF is described in 10.3.23). The 
XREF control, like all other compiler controls, is optional for the invocation line. 


The above example assumes that the compiler and the source program PROGI.SRC 
reside on drive 0 (:FO:). If PROGI.SRC is on drive 1, the invocation line is: 


BRUN PASC86 :Fi:PROG1.SRC XREFCcr) 
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The invocation line takes this general form: 


RUN [:Fd:]P ASC86 [:Fd]source[ controls] 


where 

RUN is the name of the command to execute the compiler. 

‘Fa: specifies which drive PASC86.86 and/or source resides on, 
if not on drive 0. The source file does not have to be on the 
same drive as the compiler. 

PASC86 is the name you use for the compiler PASC86.86. 

source is the name of the source file containing the Pascal program. 

controls are optional primary or general compiler controls described 
in Chapter 10. You can have many controls in the invocation 
line with a space between each control, and you can extend 
the invocation line by using the ampersand (&) as a contin- 
uation character to replace a space. 

<cr> stands for use of the RETURN key on the keyboard. 


The following are some examples: 


Bere UN 2 ab) Tr PR SP Oc8 doi. PIP ROG PORUEN TC eP ee TT ee tee Ot 2 eee 


In this example, both PASC86.86 and MYPROG are on drive 1. PRINT and TITLE 
are compiler controls. 


mRUN PASC86 :FI:KLUDGE.SRC NOPRINT<¢cry» 


In this example, PASC86.86 is on drive 0, but KLUDGE.SRC, the source program, 
is on drive 1. NOPRINT is a compiler control that prevents all printed output (except 
error messages) usually generated by the compiler. 


NOTE 


The RUN command assigns the extension 86 to any filename you specify 
without an extension. You must specify the filename’s extension if it is not 
86. If you specify a filename that has no extension, specify a period (.) after 
the name in the RUN invocation line. For example, if you rename PASC86.86 
to COMPIL, include a period after the name COMPIL (i.e., COMPIL.) 
when you invoke it using RUN. If you choose a new name with a new exten- 
sion, specify both the new name and the new extension on the RUN invoca- 
tion line. 


L.1.2 Files Used by the Compiler 


Input Files 


You supply the Pascal source program name for source in the invocation line (see 
the previous section). You can also include other source files by using the INCLUDE 
control, as described in 10.3. These files must be standard ISIS-II disk files contain- 
ing the text of Pascal instructions. 
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Output Files 


By default, the compiler produces two output files, unless you use specific controls to 
suppress or redirect them: the /isting file and the object file. Also by default, error 
messages appear at your console and in the listing file. 


The listing file (sometimes called the PRINT file) contains a listing of the source 
program, plus any other printed output generated by the compiler as specified by the 
listing selection controls described in Chapter 10. The object file (sometimes called 
the object code file or object module) contains the actual code in object module format, 
which can eventually be executed (after you use the linking and locating facilities 
described in Chapter 13). These files are described in more detail in Chapter 12. 


The listing file and the object file have the same name as the source file, except that 
the listing file has the extension LST, and the object file has the extension OBJ. The 
files are created if they do not exist, or overwritten if they do exist, and they appear 
on the same drive as the source file. You can optionally change the names and/or 
drives for the listing and object files by using the PRINT and OBJECT controls, 
respectively (described in 10.3). 


For example, if you invoke the compiler using the line: 


mRUN PASC8E :Fi:MYPROG<Ccr> 


the compiler creates (or overwrites) the file MYPROG.LST on drive | to contain the 
listing, and the file MYPROG.OBJ on drive | to contain the object module. 


You can optionally direct certain sections of printed output to files other than the 
default listing file described above. In addition to using the PRINT control to specify 
another file as the listing file, you can specify a different file to receive error messages 
by using the ERRORPRINT control. Section 10.3 gives details on the use of these 
controls. 


Work Files 


The compiler creates and uses work files during its operation, and deletes them at 
the completion of compilation. These files are designated :WORK: files and they 
cannot conflict with your files. 


The Series III operating system provides a mechanism to select the drive where work 
files can be temporarily stored. The default drive is drive | (:F1:), but you can select 
another drive using the RUN WORK command, as in this example: 


BRUN WORK :FO:¢er) 


This example selects drive 0 as the drive to hold work files. 


L.1.3 Compiler Messages 


When you invoke the compiler, it displays the sign-on message: 


Series-III Pascal-86, Vxy 
Copyright 1981, 1983, 1984 Intel Corporation 
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where 
x is the version number of the compiler. 
y is the change number within the version. 


As the compilation proceeds through its phases, the compiler displays messages that 
trace the compilation. As each phase starts, the name of the phase is displayed; when 
the phase terminates, the numeric parameter (if any) and comma are added. The 
name of the phase is prefixed by NO if the phase was not executed. The name of 
each phase (except for PARSE and ANALYZE) is the same as the control name 
that defines the phase. 


These messages take the form: 
PARSE(n), ANALYZECn), [NOJXREF, [NOJOBJECT 


where 


n is the number of errors detected during execution of that 
particular phase. 


The output files controlled by the PRINT and ERRORPRINT controls may be 
directed to the console (:CO:), in which case the compilation trace messages are 
interrupted with END clauses to show when a phase ends. 


When a compilation is finished, the compiler terminates with the message: 


Compilation of module verdict, n Errors[s] Detected. 
End of Pascal-86 Compilation. 


where 
module is the name of the source module, 
verdict is either ABORTED or COMPLETED, and 
n is the total number of errors detected during the compilation. 


L.2 Linking, Locating, and Executing on the Series Ill 
L.2.1 Sample Link Operations 


The following link operation takes two object modules, MYMOD1.OBJ and 
MYMOD2.OBJ, links them together, then links in the Pascal run-time libraries to 
form the output module MYPROG.86. To extend the LINK86 command to the next 
line without transmitting the command, type the ampersand (&) character before 
the RETURN key, and continue typing the command on the next line (do not type 
the ampersand character between letters of a file name). The continued line will start 
with two asterisks (**): 


mRUN LINK86 MYMOD1.0BJ, MYMOD2.0BJ, P8ERNO.LIB, &ccr> 
Mer SORN Te LB, PSORN22L TBs PBERNS LTR: S7NULE “LIEB » teen > 
mL ARGE.LIB TO MYPROG.86 BIND c¢cr> 


The linker first reads MYMOD1.OBJ and MYMOD2.OBJ for external references 
and resolves those references between them. Then, the linker attempts to resolve any 
more external references in the modules by looking at the public symbols in the 
libraries P86RNO.LIB, P86RN1.LIB, P86RN2.LIB, P86RN3.LIB, 87NULL.LIB, 
and LARGE.LIB. Use of 87 NULL.LIB implies that the modules do not perform real 
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arithmetic. The final output module is MYPROG.86, which can then be loaded and 
executed on the Series III. 


If the modules MYMOD1.OBJ and MYMOD2.OB J do perform real arithmetic, then 
they must be linked with either the 8087 Numeric Data Processor or the 8087 
Emulator. If you are using the emulator, the LINK86 command would be: 


mRUN LINK86 MYMOD1.QBJ, MYMOD2.0BJ, P8ERNOD.LIB, &€cr 
meePSERNI.LIB, P8E6RN2.LIB, P8ERNZ3.LIB, CEL87.LIB, &ccr> 
wee SO087, £E8087.LIB, LARGE.LIB TO MYPROG.86 BIND ¢cr» 


The inclusion of CEL87.LIB, E8087, and E8087.LIB provides support for real arith- 
metic using the software emulator. This link sequence fully supports all of the features 
of Pascal-86. 


L.2.2 Sample Locate Operations 


The following is a sample locate operation using the default settings for controls: 


mRUN LOC86 SAMPL1.LNK¢cr» 


This sample locate operation binds the logical segments of SAMPL1.LNK to addresses 
beginning at 00200H (H is for hexadecimal), the default. The output module is called 
SAMPL1I (the root name of the input module without the LNK extension). Unless 
you specify a TO clause, the output module (the absolutely located program) will 
always have the same root name as the input module. 


The following is a sample locate operation using the ORDER and ADDRESSES 
controls: 


mRUN LOC86 SAMPL2@.LNK & cr» 
mORDERCCLASSES(CODE,STACK,DATA)V) &ecr> 
WMBADDRESSESCCLASSESCCOUDEC2ZQOD0OH),STACKC4HFO000HIII< cry» 


In the invocation line, you can use the ampersand character (&) to continue a long 
line without executing it. 


This sample locate operation collected together the logical segments by class names 
in the order specified in the ORDER control. The locater then assigned addresses as 
specified in the ADDRESSES control to the logical segments collected into the CODE 
and STACK classes. The DATA class received its address assignment from the default 
algorithm. 


L.2.3 Executing Programs 


The output module from the locater can be loaded and executed in the 8086 environ- 
ment by using the Series III RUN command. Position-independent (PIC) and 
loadtime locatable (LTL) modules produced by LINK86 with the BIND option can 
also be loaded and executed by the RUN command. These modules could also be 
used as input to the DEBUG-86 debugger or a similar debugging tool. 


To run correctly, a program must be complete, i.e., it must contain all modules neces- 
sary to run. For example, in order to run in the Series III 8086 environment with 
run-time support, a program must contain modules from the run-time support librar- 
ies described in 12.2.2. To run in a foreign environment, you must supply your own 
run-time support and follow the guidelines in Appendix K. 
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To run a complete program in the Series III 8086 environment, simply use the RUN 
command. In the example below, both the RUN program and the SAMPLI program 
are on drive 0. To refer to any program on a different drive, specify the drive number 
d in the format :Fa:. 


SRUN SAMPL1.¢cr) 


Note that in the example, SAMPLI appears with a period at the end. This period 
tells the RUN command not to look for an .86 extension. If the program were named 
“SAMPLI1.86”, you would not put a period at the end: 


mRUN SAMPLI<¢cr») 


If your program’s name has an extension other than .86, you must specify the exten- 
sion with the name. If its name has an .86 extension, you need not specify it. If its 
name has no extension, you must specify the final period. 


NOTE 


If you use the BIND option with LINK86 on a module that is ready to be 
processed by the RUN loader, and you do not specify its name in a TO 
clause, the linker will use the root name (and device) of the first file specified 
as input, but will not append the LNK extension. 


L.3 Series lll-Specific Compiler Controls 


This appendix includes a fold-out page for system-specific examples of most of the 
Pascal-86 compiler controls. This page is designed to be opened out and used in 
conjunction with the corresponding text in 10.3. 


L.4 Interrupt Handling on the Series Ill 


The Intellec Series III maps the seven Multibus interrupt lines (INTO through INT7) 
onto interrupt vector entries numbered 56 through 63; therefore, your application 
may not use these for software interrupts. Interrupt vector entries available for user 
software include 64 through 183. Refer to the Jntellec Series III Microcomputer 
Development System Programmer's Reference Manual, Order Number 121618 for 
details. 


8087 Support 


You may incorporate an 8087 Numeric Data Processor in your Series III by install- 
ing the iSBC 337 Multimodule Numeric Data Processor. Refer to the iSBC 337 
Multimodule Numeric Data Processor Hardware Reference Manual for more infor- 
mation. 


NOTE 


The Series III Operating System is designed for use by a single operator and 
supports neither reentrancy nor multitasking. 
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L.5 Related Publications 


Below is a list of other Intel publications you are likely to need in order to use 
Pascal-86. Most of them describe related Intel products. The manual order number 
for each publication is given immediately following the title. 


e  Pascal-86 Pocket Reference, 121541 
A companion to this manual, providing summary information for quick reference. 
¢ A Guide to the Intellec Series III Microcomputer Development System, 121632 


A guide to the use of the Series III and associated tools as a total development 
solution for your iAPX 86 and iAPX 88 microcomputer applications. This tutorial 
manual takes you through hands-on sessions with the Series III operating system, 
the CREDIT text editor, the Pascal-86 compiler, the iAPX 86, 88 Family Utili- 
ties, the DEBUG-86 applications debugger, and the ICE-86A In-Circuit 
Emulator. 


¢ Intellec Series III Microcomputer Development System Product Overview, 
121575 


A summary description of the set of manuals that describe the Intellec Series III 
development system and its supporting hardware and software. This brief manual 
includes a description of each manual related to the Series III, plus a glossary of 
terms used in the manuals. 


¢ Intellec Series III Microcomputer Development System Console Operating 
Instructions, 121609 
¢  Intellec Series ITI Microcomputer Development System Pocket Reference, 121610 


Instructions for using the console features of the Series III, including the 
DEBUG-86 applications debugger. The Console Operating Instructions provides 
complete instructions, and the Pocket Reference gives a summary of this 
information. 


¢  Intellec Series III Microcomputer Development System Programmer’s Refer- 
ence Manual, 121618 


Instructions for calling system routines from user programs for both micro- 
processor environments, MCS-80/85 and iAPX 86, in the Series III. 


¢ ISIS-II CREDIT CRT-Based Text Editor User’s Guide, 9800902 
¢ CREDIT CRT-Based Text Editor Pocket Reference, 9800903 


Instructions for using CREDIT, the CRT-based text editor supplied with the 
Series III. The User’s Guide provides complete operating instructions, and the 
Pocket Reference summarizes this information for quick reference. 


¢ {tAPX 86,88 Family Utilities User’s Guide, 121616 
¢ iAPX 86,88 Family Utilities Pocket Reference, 121669 


Instructions for using the 8086-based utility programs LINK86, LIB86, LOC86, 
CREF86, and OH86 in 8086-based development environments to prepare 
compiled or assembled programs for execution. The User’s Guide provides 
complete operating instructions, and the Pocket Reference summarizes this 
information for quick reference. 


* ASM86 Language Reference Manual, 121703 
¢ ASM86 Macro Assembler Operating Instructions, 121628 
¢ ASM86 Macro Assembler Pocket Reference, 121674 


Instructions for using ASM86 in 8086-based development environments. The 
Language Reference Manual gives a complete description of the assembly 
language; the Operating Instructions gives complete instructions for operating 
the assembler; and the Pocket Reference provides summary information for quick 
reference. You need these publications if you are coding some of your routines 
in assembly language. 
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PL/M-86 User’s Guide, 121636 
PL/M-86 Pocket Reference, 121662 
Fortran-86 User’s Guide, 121570 
Fortran-86 Pocket Reference, 121571 


Instructions for using the PL/M-86 and Fortran-86 languages and compilers in 
iAPX 86-based development environments. The User’s Guide gives a complete 
description of the language and compiler (or translator), and the Pocket Refer- 
ence provides summary information for quick reference. You need these publi- 
cations if you are coding some of your programs in PL/M-86 or Fortran-86. 


¢ PSCOPE High-Level Program Debugger User’s Guide, 121790 


Instructions for using PSCOPE, the symbolic debugger for high-level language 
programs. The User’s Guide provides complete operating instructions. 


ICE-86A In-Circuit Emulator Operating Instructions for ISTS-II Users, 9800714 
ICE-86A Pocket Reference, 9800838 

ICE-88 In-Circuit Emulator Operating Instructions for ISTS-II Users, 9800949 
ICE-88 Pocket Reference, 9800950 


Instructions for using the ICE-86A and ICE-88 In-Circuit Emulators for 
hardware and software development. The Operating Instructions manuals give 
complete user descriptions of the In-Circuit Emulators, and the Pocket Refer- 
ence guides provide summary information for quick reference. You need the 
corresponding publications if you are using the ICE-86A or ICE-88 emulator. 


¢ The iAPX 86,88 User's Manual, 210201-001 


This manual contains general reference information, application notes, and data 
sheets describing the 8086, 8087, 8088, and 8089 microprocessors and their use. 
Extensive discussions of hardware and development software (including PL/M- 
86, assembly language, LINK86, and LOC86), plus numerous examples of system 
designs and programs, are included. 


¢ 8087 Support Library Reference Manual, 121725 


This manual contains specific information on the 8087 support libraries that are 
available. It includes full descriptions of the DCON87.LIB, CEL87.LIB, and 
EH87.LIB, as well as a discussion of the IEEE math standard. 


¢ Run-Time Support Manual for iAPX 86,88 Applications, 121776 


This manual describes in detail the run-time interface needed to run programs 
on the iAPX 86,88 family of microprocessors. It includes a description of the 
run-time libraries required by high-level language compilers, the concepts behind 
Intel’s various operating system environments, the specifications for Intel’s 
Universal Development Interface (UDI), and the definition of the Logical Record 
Interface (LRI). 
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Comments Control Examples 
Causes subsequent code to implement checking in CHECK/NOCHECK - GUMS Se ae 
PROG1.SRC 
Lists the approximate assembly code for the object CODE/NOCODE -GUDRIEISREI Las Pe 
code and appends the listing to the source listing in 
drive 1 


Generates debug records in the object module DEBUG/NODEBUG BRUN PAS286 PROG.SRC DB <cr> 


PROG.OBJ compiled from the source file PROG.SRC 

Sends error messages to the file specified in the ERRORPRINT/NOERRORPRINT ~ GUMS ea a ee 
pathname argument SAMPLE.ERR on drive 1 
Causes extension warnings to occur for any Intel EXTENSIONS/NOEXTENSIONS ~ (RAB R a 
extension to standard Pascal in the file PROG.SRC 


TTCINTERRUPTA 


INTERRUPTB)<cr> 


Specifies procedures INTERRUPTA and INTER- INTERRUPT - GRUDGE 20 
RUPTB as interrupt procedures, but does not gener- 
ate the interrupt vector for the entry points 


Prevents the listing of source lines in the object file MMAR eM CymR UN PAS286 :F1:SDURCE.SRC NOLIST coro 
SOURCE.OBJ until a LIST control is encountered 

Prevents the creation of an object module from OBJECT/NOOBJECT - GERERSERECRT Sree) 

PROG3.SRC 

Sends printed output to the file LIST2 on drive 1 eyTINEMANO@SDiRME RUN PAS286 :F1:SOURCE.SRC PRINTC:F1:LIST2)¢cr> 
Causes the subtitle ‘MODULE ONE’ to appear on SOUsmeme meme RUN PAS286 PROG1.SRO SUBTITLEC‘MODULE ONE’ Decry 


every page until another subtitle control (if any) 
appears in PROG1.SRC 


Causes the title ‘EUCLIDS GCD PROGRAM’ to seppmsmeR UN PAS28G6 EUCLID.SRC TTC*EUCLIDS GCD PROGRAM’) <¢cr» 
appear on every page 


Directs the compiler not to include type records in TYPE/NOTYPE ~ EMCEE TSS RST eae) 


the file TEMP.OBJ on drive 1 


Produces a cross-reference listing of all identifiers in XREF/NOXREF ~ (SRR Bisa Ric 
the file SOURCE.SRC and appends the listing to the | 
default listing file SOURCE.LST on drive 1 
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This appendix contains information that is specific to the i1RMX 86 Operating System. 
It covers the following areas: 


e System requirements 

¢ Compiler invocation and file usage 

e Examples of compiler control invocation lines 

e Examples of system-dependent floating-point library linkage 
¢ Calling iRMX 86 primitives 


e Related publications 


M.1 Compiler Operation 


The Pascal-86 compiler is a program that translates your Pascal instructions into 
object code modules that can be linked and located for execution. 


You create a Pascal program by typing instructions into a file using a text editor 
(such as EDIT) and submitting the file to the Pascal-86 compiler. The file you submit 
is called a source file and the file containing the compiled program is called an object 
file. (The content of the object file is also known as object code.) In Pascal-86 you 
can compile parts of a program; each separate compilation is known as an object 
module. 


The following discussions assume that you have a suitable copy of the Pascal-86 
compiler and an iRMX 86 application system on which the compiler can run. To run 
the compiler on an iRMX 86 based system, you must have the following hardware 
and software: 


¢ The iRMX 86 Universal Development System Interface (and other iRMX 86 
layers necessary to support the Universal Development System Interface). 


e At least one mass storage device. The installation of the compiler always requires 
a single or double density: diskette drive, since the product is delivered in diskette 
form. 


¢ Enough memory to run the compiler (above and beyond that required for the 
Operating System). The memory requirement varies for different releases of the 
compiler, but the code, static data, and dynamic memory requirment is around 
150K. 


Chapter 1 of this manual leads you through a complete program development sequence 
using a sample Pascal program. Details of the Operating System environment are 
provided in the iRMX 86 Release 5 Operator’s Manual. 


M.1.1 Invoking the Compiler 


The compiler is supplied on an iRMX 86 format diskette. It may be desirable to copy 
the compiler to another disk or to one of the directories that the Operating System 
automatically searches when commands are entered. The compiler consists of a single 
file: PASC86. 


APPENDIX M 
COMPILER INVOCATION AND ADDITIONAL 
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You can invoke the Pascal-86 Compiler from the system console using the standard 
command format described in the iRMX 86 Release 5 Operator’s Manual. You can 
specify continuation lines by using the ampersand (&) as a continuation character. 
The ampersand can appear any place there is a space or other delimiter. 


The invocation command has the general form: 


-[directory|PASC86 sourcepath|[controls]<cr> 


where 


directory is that portion of the pathname that identifies the device and 
directories which contain the file PASC86. If you omit the 
directory portion of the pathname, the Operating System 
automatically searches several directories for the file 
PASC86. The directories searched and the order of the search 
are iRMX 86 configuration parameters. 


sourcepath is the pathname of the file containing Pascal-86 source code. 
Refer to the iRMX 86 Release 5 Operator's Manual for more 
information about pathnames. 


controls is the optional primary or general compiler controls described 
in Chapter 10. You can specify many controls in an invoca- 
tion line if you separate them with spaces (the ampersand 
(&) creates a continuation line and also separates controls). 


«cr> indicates a carriage return. 
The following are some examples: 
-:FDO:PASC8G :WDO:DIR1/MYPROG.SRCO PRINTC:LP:) TITLECS TEST 24’)¢cr> 


In this example, the compiler resides on device :FDO:. The compiler is directed to 
compile the source module :WDO:DIR1/MYPROG.SRC, send the output listing to 
:LP:, and place ““TEST 24” in the header on each page of the listing. 


-PASC86 :F1:PROG1.SOURCE NOPRINT¢cr) 


In this example, the compiler resides in a directory that the Operating System 
automatically searches; thus, it does not require a device or directory name. The 
compiler is directed to compile the source module :Fl:PROGI.SOURCE. This file 
resides on the device with the logical name :F1: and has the name PROG.SOURCE. 
NOPRINT is a compiler control that suppresses all printed output (except error 
messages) usually generated by the compiler. 


M.1.2 Files Used by the Compiler 


Input Files 


You supply the Pascal source program name for sourcepath in the invocation line 
(see the previous section). You can also include other source files by using the 
INCLUDE control, as described in section 10.3 of this manual. These files must be 
standard iRMX 86 named files containing the text of Pascal instructions. 
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Output Files 


By default, the compiler produces two output files (unless you use specific controls to 
suppress or redirect them): the Jisting file and the object file. Also by default, error 
messages appear at your console and in the listing file. 


The listing file (called the PRINT file) contains a listing of the source program, plus 
any other printed output generated by the compiler as specified by the listing selec- 
tion controls described in Chapter 10. The object file (sometimes called the object 
code file or object module) contains the actual code in object module format, which 
can eventually be executed (after you use the linking and locatiing facilities in 
Chapter 12). These files are described in more detail in Chapter 11. 


The listing file and the object file have the same name as the source file, except that 
the last pathname component of the listing file has the extension LST and the last 
pathname component of the object file has the extension OBJ. The compiler creates 
the files if they do not exist and overwrites them if they do exist. You can optionally 
change the pathnames for the listing and object files by using the PRINT and 
OBJECT controls, respectively (described in section 10.3). 


For example, if you invoke the compiler using the command line: 
-PASC86 :PROG:MYPROG.SRCccr> 


the compiler creates (or overwrites) the file MYPROG.LST in directory :PROG: to 
contain the listing, and it creates (or overwrites) the file MYPROG.OBJ in directory 
:PROG: to contain the object modules. 


You can optionally direct certain sections of printed output to files other than the 
default listing file described previously. In addition to using the PRINT control to 
specify another file as the listing file, you can specify a different file to receive error 
messages by using the ERRORPRINT control. Section 10.3 gives details on the use 
of these controls. 


Work Files 


The compiler creates and uses work files during its operation which are deleted at 
the completion of the compilation. All of these files are created in the directory with 
logical name :WORK:. You should not place your own files in this directory if their 
names conflict with the compiler’s work files. You can set the location of the :WORK: 
directory during system configuration. 


M.1.3 Compiler Messages 


When you invoke the compiler, it displays the sign-on message: 


iRMX 86 Pascal-86, Vxy 
Copyright 1981, 1983, 1984 Intel Corporation 


where 
x is the version number of the compiler and 
y is the change number within the version. 


As the compilation proceeds through its phases, the compiler displays messages that 
trace the compilation. As each phase starts, the name of the phase is displayed; when 
the phase terminates, the numeric parameter (if any) and commas are added. The 
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name of the phase is prefixed by NO if the phase was not executed. The name of 
each phase (except for PARSE and ANALYZE) is the same as the control name 
that defines the phase. 


These messages take the form: 
PARSEC(n), ANALYZEC(n), [NOJXREF, [NOJOBJECT 


where 


n is the numer of errors detected during execution of that 
particular phase. 


The output files controlled by the PRINT and ERRORPRINT controls may be 
directed to the console (:CO:), in which case the compilation trace messages are 
interrupted with END clauses to show when a phase ends. 


When a compilation is finished, the compiler terminates with the message: 


Compilation of moduleverdict, n Errors[s] Detected. 
End of Pascal-86 Compilation. 


where 
module is the name of the source module, 
verdict is either ABORTED or COMPLETED, and 
n is the total number of errors detected during compilation. 


M.2 Linking, Locating, and Executing on the iRMX™ 86 
System 


This section shows some examples of linking, locating, and executing Pascal-86 
programs in an iRMX 86 environment. When reading this section, keep in mind the 
following information: 


e In order to run a Pascal-86 program in an iRMX 86 environment, you must link 
it to the iRMX 86 universal development interface (UDI) library called 
LARGE.LIB. 


¢ The 8087 emulator is not supported for use in an iRMX 86 environment. If you 
plan to use real arithmetic, you must include the 8087 Numeric Processor Exten- 
sion in your system and you must link your programs to the libraries 8087.LIB 
and EH87.LIB. 


M.2.1 Sample Link Operations 


The following link operation takes two object modules, MYMOD1.OBJ and 
MYMOD2.OBJ, links them together, and then links in the Pascal run-time libraries 
to form the output modules MYPROG. To extend the LINK86 command to the next 
line without transmitting the command, type the ampersand (&) character before 
the carriage return, and continue typing the command on the next line (do not type 
the ampersand character between characters of a pathname). The continued line will 
start with two asterisks (**): 


-LINK86 MYMOD1.0BJ, MYMOD2.0BJ, P8GERNO.LIB, &ccr> 


**P86ERN1.LIB, P8ERN2.LIB, P8GERN3.LIB, 87NULL.LIB, &ccr» 


**LARGE.LIB TO MYPROG BIND MEMPOOLC+4000H) &ccr> 
*#FSEGSIZECSTACKC+400H)) 
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The linker first reads MYMOD1.OBJ and MYMOD2.OBJ for external references 
and resolves those references between them. Then, the linker attempts to resolve any 
more external references in the modules by looking at the public symbols in the 
libraries P86RNO.LIB, P86RN1.LIB, P86RN2.LIB, P86RN3.LIB, 87NULL.LIB 
and LARGE.LIB. Use of 87 NULL.LIB implies that the modules do not perform real 
arithmetic. The final output module is MYPROG, which can then be loaded and 
executed on an iRMX 86 system. 


If the modules MYMODI1.OBJ and MYMOD2.OBJ perform real arithmetic, you 
must link them with the 8087 Numeric Processor Extension library (8087.LIB), the 
library that implements IEEE standarized math features (EH87.LIB), and the library 
that implements the real built-in functions (CEL867.LIB). This LINK86 command 
is: 


-LINK86 MYMOD1.0BJ, MYMOD2.0BJ, PO8ERNO.LIB, &ecr> 
**PB8ERN1.LIB, P8ERN2.LIB, P8ERN3.LIB, CEL87.LIB, &<¢cr» 
**8087.LIB, LARGE.LIB TO MYPROG BIND MEMPOOLC+4000H) &ccr» 
**SEGSIZECSTACKC+400H)) 


M.2.2 Sample Locate Operations 


The following is a sample locate operation using the ORDER and ADDRESSES 
controls: 


-LOC86 SAMPLE2.LNK &<cr> 
**ORDERCCLASSESC(CODE, STACK, DATA)) &cer> 
*FADDRESSESCCLASSESCCODEC2Z000H), STACKC4F00H)IIICCr> 


In the invocation link, you can use the ampersand character (&) to continue a long 
line without executing it. 


This sample locate operation collects together the logical segments by class names in 
the order specified in the ORDER control. The locator then assigns addresses as 
specified in the ADDRESSES control to the logical segments collected into the CODE 
and STACK classes. The DATA class receives its address assignment from the default 
algorithm. 


If you are locating your program for eventual execution in an iRMX 86 environment, 
ensure that the addresses you assign to the program do not conflict with the memory 
reserved for the operating system and your application tasks. Also, ensure that you 
do not assign your program to memory locations that the Operating System normally 
assigns as dynamic memory. If you assign absolute addresses to your program, you 
must reserve those memory locations during iRMX 86 configuration. 


M.2.3 Executing Programs 


If you have used LINK86 BIND control to produce position-independent code (PIC) 
and load-time-locatable (LTL) modules, you can load and execute these modules in 
an iRMX 86 environment by entering their pathnames at the system console. Output 
from LOC86 can also be loaded and executed in the same manner, as long as you 
adhere to the restrictions outlined in the previous section. 


To run correctly, a program must be complete; that is, it must contain all modules 
necessary to run. For example, in order to run in an iRMx 86 environment with run- 
time support, a program must contain modules from the run-time support libraries 
described in section 12.2.2. To run in a foreign environment, you must supply your 
own run-time support and follow the guidelines in Appendix K. 
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To run a complete program in an iRMX 86 environment, simply enter the pathname 
of the program. In the example that follows, the program SAMPLI resides in one of 
the directories that the Operating System automatically searches. The directories 
searched and the order of search are iRMX 86 configuration parameters. To refer to 
a program in a different directory, specify the complete pathname of the program. 


-SAMPLi<¢cr») 


M.3 Interrupt Handling in an iRMX™ 86 Environment 


Section 8.9 describes several procedures that aid in interrupt processing. Because the 
iRMX 86 Operating System implements its own form of interrupt processing (refer 
to the iRMX 86 Nucleus Reference Manual), Pascal-86 programs that run in an 
iRMX 86 environment must not use these Pascal-86 interrupt control procedures. 


M.4 Calling iRMX™ 86 Primitives from a Pascal Program 


The operating system primitives provided by the various layers of iRMX 86 are avail- 
able to the Pascal-86 programmer. In order to call an iRMX 86 primitive from a 
Pascal-86 program, you must follow the instructions for calling a PL/M-86 program 
from Pascal as described in Appendix J of this manual. 


Calling iRMX 86 primitives also requires you to link to the interface libraries associ- 
ated with the operating system primitives which your application program calls. The 
names of these interface libraries and order of linkage are described in the iIRMX 86 
Configuration Guide. 


M.5 Related Publications 


This section lists other Intel publications you might need in addition to this one. The 
manual order number for each publication immediately follows the title. The 
paragraph following each title describes the manual. 


¢  Pascal-86 Pocket Reference, 121541 
A companion to this manual, providing summary information for quick reference. 
¢ Introduction to the iRMX 86 Operating System, 9803124 


A general introduction to the iRMX 86 Operating System. This manual discusses 
the features of the Operating System and introduces some of the terminology. It 
also lists and describes each of the manuals in the iRMX 86 manual set. 


¢ iRMX 86 Release 5 Operator's Manaul, 172764 
¢ iRMX 86 Disk Verification Utility Reference Manual, 144133 


Instructions for entering commands at an iRMX 86 terminal. The operator’s 
manual describes file-naming conventions and provides a complete description of 
all commands available with the Operating System. The disk verification utility 
manual describes an interactive utility which examines and restores iIRMX 86 
volumes. 


¢ iRMX 86 Human Interface Reference Manual, 9803202 
° iRMX 86 Nucleus Reference Manual, 9803122 
* iRMX 86 Release 5 Basic I/O System Reference Manual, 172766 
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¢ iRMX 86 Release 5 Extended I/O System Reference Manual, 172767 
¢ iRMX 86 Loader Reference Manual, 143318 


Instructions for invoking system calls from user programs. 


¢ iRMX 86 Programming Techniques, 142982 
¢ Guide to Writing Device Drivers for the iRMX 86 and iRMX 88 1/O Systems, 
142926 


Additional information about the Operating System. 
¢ EDIT Reference Manual, 143587 


Instructions for using EDIT, the text editor available for use on the iRMX 86 
Operating System. 


¢ {tAPX 86,88 Family Utilities User's Guide, 121616 
¢ IAPX 86,88 Family Utilities Pocket Reference, 121669 


Instructions for using the utility programs LINK86, LIB86, LOC86, CREF86, 
and OH86 in iAPX 86-based environments to prepare compiled or assembled 
programs for execution. The user’s guide provides complete operating instruc- 
tions and the pocket reference summarizes the information for quick reference. 


¢ AMS86 Language Reference Manual, 121703 

¢ ASM86 Macro Assembler Operating Instructions for 8086-Based Systems, 
121628 

¢ ASM86 Macro Assembler Pocket Reference, 121674 


Instructions for using ASM86 in iAPX 86-based development environments. The 
language reference manual gives a complete description of the assembly language. 
The operating instructions manual gives complete instructions for operating the 
assembler. The pocket reference provides summary information for quick refer- 
ence. You need these publications if you are coding some of your routines in 
assembly language. 


PL/M-86 User’s Guide, 121636 
PL/M-S86 Pocket Reference, 121622 
FORTRAN-S86 User's Guide, 121570 
FORTRAN-86 Pocket Reference, 12157} 


Instructions for using the PL/M-86 and FORTRAN-86 languages and compi- 
lers in iAPX 86-based development environments. The user’s guide gives a 
complete description of the language and compiler, and the pocket reference 
provides summary information for quick reference. You need these publications 
if you are coding some of your programs in PL/M-86 or FORTRAN-86 


e The iAPX 86,88 User’s Manual, 210201 


This manual contains general reference information, application notes, and data 
sheets describing the 8086, 8087, 8088, and 8089 microprocessors and their use. 
Extensive discussions of hardware and development software (including PL/M- 
86, assembly language, LINK86, and LOC86), plus numerous examples of system 
designs and programs, are included. 


¢ 8087 Support Library Reference Manual, 121725 


This manual contains specific information on the 8087 support libraries that are 
available. It includes full descriptions of the DCON87.LIB, CEL87.LIB, and 
EH87.LIB, as well as a discussion of the IEEE math standard. 


¢ Run-Time Support Manual for iAPX 86,88 Applications, 121776 


This manual describes in detail the run-time interface needed to run programs 
on the iAPX 86,88 family of microprocessors. It includes a description of the 
run-time libraries required by high-level language compilers, the concepts behind 
Intel’s various operating system environments, the specifications for Intel’s 
Universal Development Interface (UDI), and the definition of the Logical Record 
Interface (LRI). 


This glossary defines terms used in the text of this manual. Some of these terms 
pertain to the Pascal language, some to the compiler, and some to the processor or 
system environment in which you develop or run programs. For further information 
concerning a term defined here, refer to the section(s) of this manual that are cited 
in parentheses after the definition. 


argument: a variable, expression, procedure, or function, specified in a procedure or 
function invocation, that communicates information to that procedure or function. It 
matches one of the parameters of the invoked procedure or function. (4.1.2, 6.1) 


argument list: a list of arguments given in a function designator or a procedure state- 
ment. (4.1.2, 7.1.3, 7.2.2) 


array: a variable of an array type. (5.3.2) 


array type: a structured type consisting of a fixed number of components, or elements, 
that are all of the same type. (5.3.2) 


assignment-compatible: said of an expression and a type if the value of that expres- 
sion can be assigned to a variable of that type. (5.3.4) 


automatic: said of variables that are created and destroyed in accordance with the 
structure of a program. In Pascal, these are all variables that are declared explicitly 
within a procedure or function. (5.1) 


base address: in an iAPX 86 or iAPX 88 microcomputer system, the 16-bit portion 
of an address that determines the location of the segment being addressed. (12.3.2) 


base type: the type of the components, or elements, of a set type; this must be an 
ordinal type. (5.3.2) 


block: 1. when used in discussing the Pascal language, a section of a source program 
that includes declarations, definitions, and statements; performs a particular function; 


and may have other blocks nested within it (or be nested within another block). 
(2.1) 2. when used in the source listing output from the Pascal-86 compiler, a 
BEGIN...END, REPEAT...UNTIL, or CASE...OF...END statement group, which 
may have other such statement groups nested within it. (11.1.2) 


block-structured language: a programming language in which the programs are 
composed of blocks. (2.1) 


buffer variable: the implicitly declared variable associated with a file variable and 
used to hold its current file component. (5.3.2, 5.4.2) 


call by reference: communication of an argument to a subprogram (procedure or 
function in Pascal) by passing the address of the argument. In Pascal-86, this method 
is used with arguments to variable parameters. (J.1) 


call by value: communication of an argument to a subprogram (procedure or function 
in Pascal) by passing the actual value of the argument. In Pascal-86, this method is 
used with arguments to value parameters. (J.1) 
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comment: a sequence of characters, enclosed between a left and a right comment 
bracketing symbol and including those symbols, which supplies documentation infor- 
mation not to be translated by the compiler. (3.2.1) 


compatible: said of two types that may be combined in expressions, or of two param- 
eter lists whose parameter types match. (5.3.4, 6.4.7) 


compiler: the program that translates your Pascal instructions into object code ready 
to be linked and located. (11) 


component type: the type of the components, or elements, of an array type. (5.3.2) 


conditional compilation: process whereby the compiler skips selected portions of the 
source file if specified conditions are not met. 


conditional statement: a statement that selects for execution one of its component 
statements; in Pascal, an IF or CASE statement. (7.2.4) 


constant: a data item that cannot change during program execution. It may be a 
literal constant (e.g., a signed integer or a literal string) or a named constant referred 
to by an identifier. (5.1, 5.2) 


control: an instruction to the compiler, given either in the compiler invocation line or 
in a control line within the source text. (10) 


control line: a line, within the text of a source program, that starts with a dollar sign 
in the leftmost column, and contains compiler controls rather than constructs that 
are part of the Pascal program. (10.1) 


current file component: the one component of a file variable that is accessible at a 
given time. (5.3.2, 5.4.2) 


declaration: a program construct that introduces an object having meaning at run 
time, such as a variable, procedure, function, or label. (2.1, 5) 


default value: the input parameter value or control value that is assumed by a program 
(such as a compiler) if no value is explicitly given. (10.1) 


definition: a program construct that introduces an object having meaning at compile 
time, such as a constant or a type. (2.1, 5) 


denormalized: said of a real value if it has a zero exponent and a zero explicit or 
implicit leading bit, but is not a normal zero. (14.7) 


dereferencing a pointer: accessing a dynamic variable by referring to its associated 
pointer variable. (5.3.3) 


directive: a word symbol that has a special meaning, but which can also be defined 
as an identifier in. programs. In Pascal-86, only one directive (FORWARD) is defined. 
(6.5, F) 


driver: a routine that transfers data or performs other communication with an exter- 
nal device. (K.2.1) 


dynamic: said of variables that are generated at run time by statements within a 
program, rather than being declared explicitly. (5.1, 5.3.3) 
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dynamic symbol table: the compiler’s dictionary. Information about all the symbols 
is recorded here. It is dynamic because it can grow from main memory to mass storage. 
(10.3.20) 


empty set: the set (object of a set type) that contains no elements. (5.3.2) 
empty statement: a statement that contains no symbols and performs no action. (7.2) 


entire variable: a complete variable of a given type, rather than a component of a 
structured variable. (5.4.2) 


enumerated type: a simple, ordinal type that defines an ordered set of values by listing 
the identifiers that denote these values. (5.3.1) 


error: |. in the Pascal-86 compiler output listing, a mistake in the source program 
that is severe enough to prevent generation of an object module. (11.1.3, 13.1) 2. a 
run-time condition that may cause the output of a program to be wrong, due to a 
logical mistake in the source program or due to invalid input. (14.1) 


exception: a run-time condition that may cause the output of a program to be wrong, 
due to a logical mistake in the source program or due to invalid input; also called a 
run-time error. The use of the term “‘exception” implies that in some cases, a routine 
can be called to handle the situation, and then processing can continue normally. 
(14.1) 


executable: said of the parts of a program that cause the processor to perform actions 
at run-time. In Pascal, statements are executable, whereas definitions and declara- 
tions are not. (7.2) 


exponent: in the internal representation of a real value, the part that designates (in 
binary) the base-2 exponent of the number. (7.1.8, H.1) 


expression: a language construct, used in statements, which is evaluated at 
run-time. (7.1) 


extension: a language feature not present in the corresponding standard language; in 
this manual, a feature in Pascal-86 that is not part of the Draft Proposed Standard 
Pascal (ISO/DP 7185). (1.2.4, 11.1.3) 


external: said of a procedure or function that is referenced in the module being 
compiled, but is declared in another module. (4.2.3) 


fatal error: an anomaly in the compiler or compile-time environment that makes it 
impossible to proceed with the compilation. (11.1.3, 13.1) 


field: a component, or element, of a record type. (5.3.2) 


field designator: the construct used to reference a component, or field, of a record 
variable. (5.3.2, 5.4.2) 


field identifier: the identifier by which a field of a record is referenced. (5.3.2) 


file: 1. a variable of a file type (5.3.2). 2. a collection of information on a physical 
input or output device. (5.3.2, J.2) 


file descriptor: a run-time data structure containing the attributes of a physical file; 
one exists for every file that is preconnected or open. (K.2.1) 
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file type: a structured type consisting of a sequence of components that are variable 
in number, are all of the same type, and are accessed sequentially. (5.3.2) 


floating-point number: see rea/ number. 


function: a subprogram, or subordinate block, that returns a value and that is invoked 
by using its function designator in an expression. (2.1, 6) 


function designator: a language construct, used as an operand in an expression, that 
invokes a function. It consists of the function name, followed by a parameter list if 
needed. (7.1.3) 


functional parameter: a function that is used as a parameter of a procedure or another 
function. (6.4.6) 


general control: a control that may appear either in the invocation line or in a control 
line anywhere in the source program text, and that may be changed later in the source 
program. (10.1) 


global: said of program objects that are declared or defined at the outer level of a 
program block or a module. (4.1.2, 6.1) 


group: in an iAPX 86 or iAPX 88 microcomputer system, a collection of logical 
segments that must be located within a 64K-byte range; that is, within a memory 
segment. (12.3.2) 


heap: a pool of memory, provided through the Pascal-86 run-time system, from which 
storage for dynamic variables is taken. (5.3.3) 


host type: the ordinal type on which a subrange type is based. (5.3.1) 


identifier: a sequence of letters or digits, beginning with a letter, that denotes a 
module, procedure, function, constant, type, variable, parameter, or field designator. 
(3.3.1) 


INCLUDE file: a separate file of source code that is inserted, or included, in the 
source input to the compiler by means of an INCLUDE control in the source text. 
(10.2, 10.3) 


index type: the type of the array selector, or index, used to reference an element of 
an array; it must be an ordinal type. (5.3.2) 


indexed variable: the construct used to reference a component of an array variable. 
(5.3.2, 5.4.2) 


integer (literal integer): a sequence of digits, optionally terminated by a numberbase 
symbol (B, b, Q, q, H, or h), that represents a decimal, binary, octal, or hexadecimal 
integer. (3.3.2) 


integer type: an ordinal type that represents a subrange of the whole numbers. (5.3.1, 
5.3.4) 


interface specification: the part of a module that follows the module heading and 
defines the interface between that module and other modules. This interface consists 
of the objects in other modules that may be referenced by this module, and the objects 
in this module that may be referenced by other modules. (4.2.3) 
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interrupt: a signal, sent when an external event occurs, that causes a microprocessor 
CPU to stop what it is doing, perform a special routine to handle the interrupt, and 
then resume the interrupted processing where it left off. (8.9.1, 10.3, K.1) 


interrupt procedure: a procedure that is called when an interrupt occurs, to handle 
that interrupt. (8.9.1, 10.3, K.1) 


interrupt vector: an array of absolutely-located entries, starting at memory location 
0, that are reserved for the addresses of interrupt procedures, one for each interrupt 
number. (10.3, K.1) 


invocation line: the line of text used to invoke the compiler. (system-dependent 
appendix) 


keyword: a word symbol that has a special meaning and cannot be defined as an 
identifier in programs. (3.1, F) 


label: a sequence of decimal digits (decimal integer) used to mark a statement so 
that a GOTO statement may refer to it. (3.3.4) 


lazy input: an input buffering scheme whereby the run-time system fills the buffer 
variable for an input file only after it ensures that new data has been requested. This 
scheme differs from the standard Pascal buffering method, which involves reading 
ahead in the file to allow overlapping of input with computations. Lazy input is neces- 
sary for interactive programs, to ensure that a program does not query the terminal 
for input until it has prompted the user for that input. (8.7) 


library: a file that contains object modules and is created and maintained by a library 
utility such as LIB86. (12.2.1) 


line marker: the implementation-defined character or character sequence that 
indicates the end of a line in a text file. In Pascal-86, this is an ASCII carriage return 
followed by an ASCII line feed. (5.3.2) 


link: to combine together several compiled or assembled object modules to prepare 
them for locating and execution. (12.1, 12.2) 


listing file: the file containing printed output produced by the compiler. (system 
dependent appendix) 


literal integer: see integer. 

literal real number: see real number. 

literal string: see string. 

load-time locatable (LTL) code: object code that can be located at load time using 
the RUN loader, and that may refer to segment base addresses to access other 
segments in memory. Position-independent code (PIC) is always load-time locatable, 


but load-time locatable code is not always position-independent. (12.3.3) 


local: said of program objects that are declared or defined within a subordinate block 
in a program, rather than at the outer level. (4.1.2, 6.1) 


locate: to bind the code in linked object modules to memory addresses so that it may 
be executed. (12.1, 12.3) 


logical blank: a blank or blank substitute that may separate symbols in a program. 
32) 
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logical record: a unit of data containing exactly one component of a non-text file, or 
one line of a text file. This is the unit of data that is processed by the Pascal-86 run- 
time system. (K.2) 


logical record interface: the software interface between the Pascal-86 run-time support 
libraries and the operating system. (K.2) 


logical segment: a piece of an object module that is acted on by the programs that 
link and locate the object module. (12.1) 


LTL: see load-time locatable (LTL) code. 
main program module: see program module. 
memory segment: see segment. 


module: a separately compiled program unit. In Pascal-86, it may include a module 
heading and interface specification; global declarations for labels, data, procedures, 
and functions; and/or a main program block. (2.2, 4, I) 


module heading: a program construct that begins a module and identifies it by name. 
(4.2.2) 


named constant: a constant that has been associated with an identifier by defining it 
in a constant definition. (5.2) 


NaN: in real (floating-point) number representation, one of several bit patterns that 
are not actual numbers. (NaN stands for ““Not a Number.”) The presence of NaNs 
in a computation generally indicates a real arithmetic exception condition. (7.1.8) 


nested: contained; said of a procedure or function block that lies within an enclosing 
procedure or function block, of a statement block (BEGIN...END, REPEAT... 
UNTIL, or CASE...OF...END) that lies within another statement block, and of an 
INCLUDE control invoked because of a file brought in by a previously invoked 
INCLUDE control. (2.1, 11.1.2) 


neutral object: in a Pascal-86 program being compiled, an object whose type has 
been “neutralized” by the compiler because of a program error. This object is treated 
as compatible with any type, so that subsequent references to an incorrect type speci- 
fication do not cause additional errors to be reported. (13.3) 


non-main module: a module other than the program module, that is, a module that 
does not contain the main program. (4.1.1) 


nonterminal symbol: in the syntax notation or other specification of a programming 
language, a term (such as identifier or expression) standing for a language element 
or construct that must be filled in by the programmer. (Preface, page viii) 


normal zero: the real value whose exponent is of minimum value and whose signifi- 
cand is all zeros. (14.7) 


normalized: said of a real value if it is a normal zero or if its leading significand bit 
is one and the exponent is greater than zero. (14.7) 


object: one of the following user-defined or predefined entities in a Pascal program: 
module, procedure, function, constant, type, variable, parameter, field designator, or 
label. (3.3.1) , 
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object code: program code that has been processed by an assembler or compiler, and 
that may have been processed further by a linking and/or a locating program. (system- 
dependent appendix) 


object file: a file containing compiled object code. (system-dependent appendix) 


object module: the compiled code output by one separately compiled Pascal source 
module. (system-dependent appendix) 


offset: in an iAPX 86 or iAPX 88 microcomputer system, the 16-bit portion of the 
address that gives the position of the addressed location within the segment specified 
by the base address. (12.3.2) 


operand: an item, such as a variable or constant of some type, that can be evaluated 
and is combined with other such items in an expression by means of operators. (7.1) 


operator: a language element specifying an operation to be performed on one or two 
operands in an expression. (7.1) 


ordinal type: a simple type whose values can be mapped onto a subset of the nonne- 
gative integers. (5.3.1) 


parameter: a program object, named in a program, procedure, or function heading, 
that provides communication between the program, procedure, or function and its 
environment. In the case of a procedure or function, the parameter is matched by an 
argument in the statement that invokes the procedure or function. (4.1.2, 6.4) 


parameter list: a list of parameter identifiers given in the heading of a program, 
procedure, or function. (4.1.2, 4.2.1, 6.4.1) 


physical record: a unit of data occupying one division of a physical I/O device; for 
instance, a block on a disk. (K.2) 


PIC: see position-independent code. 


pointer type: a type whose variables are used to reference dynamic variables. (5.1, 
5.3.5,3.3) 


portable: said of programs that can be transported from one processor to another 
without modification. (1.2.3) 


position-independent (PIC) code: object code that can be located at load time using 
the RUN loader, and that does not refer to segment base addresses in order to access 
other segments in memory. Position-independent code is always load-time locatable 
(LTL), but load-time locatable code is not always position-independent. (12.3.3) 


precedence: the rule determining in what order the operators in an expression are to 
be applied when the expression is evaluated. (7.1) 


preconnection: the association of a physical file with a logical file (file variable) before 
a program is run; that is, at invocation time. (12.4.1) 


predefined: said of a program object such as a program parameter, type, constant, 
procedure, or function—whose definition or declaration is part of the Pascal-86 
language, so it need not be defined or declared in programs. Also said of an identifier 
that stands for such an object. (3.3.1) 


primary control: a control that must appear either in the invocation line or in a control 
line preceding the first non-contro] line in the source program text, and that serves 
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as a global control affecting the entire compilation. (10.1) Compare with general 
control. 


private: said of a program object that may be referenced only by the module in which 
it occurs; also said of a symbol (identifier or label) that stands for such an object. 
(4.2.3) 


private heading: in a non-main module, the heading that begins the private section 
of a module and gives the module a name. (2.5, 4.2.4) 


private section: the part of a module in which private objects—-objects which only 
that module may reference—are defined. (4.2.3) 


procedure: a subprogram, or subordinate block, that is invoked by a procedure state- 
ment. (2.1, 6) 


procedural parameter: a procedure that is used as a parameter of a function or another 
procedure. (6.4.5) 


program block: the block that defines the main program, with which execution will 
start when the program is run. (2.1, 4.1.1) 


program heading: in a program module, the heading that begins the program block 
and gives the program module a name. (2.5, 4.2.1) 


program module: the module that contains the main program, with which execution 
will start when the program is run. (2.2, 4.1.1) 


program parameter: a paramcter, defined in a program heading, that denotes an input 
or output file to be used by the program. (4.1.2, 4.2.1) 


public: said of a program object that other designated modules may freely reference; 
also said of a symbol (identifier or label) standing for such an object. (4.2.3) 


public section: a part of a module in which public objects are defined. (4.2.3) 
real number (literal real number): a sequence of digits and symbols representing a 
decimal number that includes a fractional part. It specifies a significand (integral 


part) and either an exponent, a sequence of fraction digits, or both. (3.3.3) 


real type: a simple, non-ordinal type that represents a real, or floating-point, number. 
(5.3.1, 5.3.4) 


record: |. a variable of a record type. (5.3.2) 2. see logical record. 3. see physical 
record. 


record type: a structured type consisting of a fixed number of components (fields), 
possibly of different types, that are referenced by means of identifiers. (5.3.2) 


record variant: one of several different structures, or sets of fields, that data items of 
a record type may assume. (5.3.2) 


recursive: said of a procedure or function that calls itself, either directly or indirectly. 
(2.1) 


reentrant: said of a procedure or function that can be interrupted, then called again 
from an interrupt handler or another task before the first invocation is finished. (2.1) 
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referenced variable: the construct used to reference a dynamic variable by means of 
its associated pointer variable. (5.3.3, 5.4.2) 


repetitive statement: a statement that specifies that its component statements are to 
be executed repeatedly; in Pascal, a WHILE, REPEAT, or FOR statement. (7.2.6) 


scalar type: see simple type. 


scope: of a definition or declaration, the portion of the source program over which 
the stated symbol-object association holds. (4.1.2, 6.1) 


segment: in an iAPX 86 or iAPX 88 microcomputer system, an area of memory that 
starts at a 16-byte boundary, consists of up to 64K contiguous bytes, and can be 
addressed without changing the base register used. (12.3.2) 


semantics: the set of rules for determining, given a syntactically acceptable program 
in a given language, what that program means—that is, what actions it will cause the 
processor to take. (3) 


set: a variable of a set type. (5.3.2) 


set constructor: an expression, consisting of a list of elements enclosed between square 
brackets, which represents a set. (7.1.2) 


set type: a structured type whose values represent a collection of objects of an ordinal 
type. (5.3.2) 


sign bit: in the internal representation of a real value, the bit that indicates the sign 
of the number. (7.1.8, H.1) 


signed integer: an integer (literal integer) preceded by an optional plus or a minus 
sign. (3.3.2) 


signed real number: a real number (literal real number) preceded by an optional plus 
or a minus sign. (3.3.3) 


significand: in the internal representation of a real value, the part that designates (in 
binary) the significant bits of the number. (7.1.8, H.1) 


simple statement: a statement, such as an assignment statement or a procedure state- 
ment, that contains no other statements. (7.2) 


simple type: a type whose variables have a single value; also called scalar type. (5.3, 
5.31} 


source code: code written in a programming language such as Pascal. (system- 
dependent appendix) 


source file: a file containing source code. (system-dependent appendix) 


statement: 1. when used in discussions of the Pascal language, a program construct 
that defines an action to be performed by the program. (2.1, 2.5, 7.2) 2. when used 
in the source listing output from the Pascal-86 compiler, a construct delimited by a 
semicolon not within a parameter list or beginning with DO, THEN, ELSE, 
OTHERWISE, UNTIL, or the OF in a CASE statement. (11.1.2) 


Static: said of variables that exist for the entire run of a program. In Pascal-86, only 
global variables are static. (5.1) 
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static symbol area: memory used by the compiler for context information necessary 
because of block structure. (10.3.20) 


string: a sequence of one or more characters enclosed by apostrophes, representing a 
value of type CHAR (if a single character) or of type PACKED ARRAY [1..n] OF 
CHAR, where n is greater than | and is equal to the number of enclosed characters. 
(3.3.5) 


string type: a structured type defined as PACKED ARRAY [1..n] OF CHAR, where 
nis a positive integer. (5.3.2, 5.3.4) 


strongly typed: said of a programming language, such as Pascal, in which every data 
item must have a type, and in which strict type compatibility rules must be 
followed. (5.3) 


structured statement: a statement, such as a compound statement or a REPEAT 
statement, that contains one or more embedded statements. (7.2) 


structured type: a type whose variables are made up of a number of single values; 
such a type is built up from simple types. (5.3, 5.3.2) 


subrange type: a simple, ordinal type defined as a subrange of an ordinal type. (5.3.1) 


syntax: the set of rules defining what sequences of symbols make up acceptable 
programs in a given programming language. (3) 


tag field: in a record containing record variants, a field, common to all variants, which 
identifies the variant assumed at a given time. (5.3.2) 


terminal symbol: in the syntax notation or other specification of a programming 
language, a symbol (such as a keyword, letter symbol, or punctuation symbol) that is 
to be used verbatim in programs. (Preface, page vii) 


text file: a file type that has components of type CHAR and is subdivided into lines 
by means of implementation-defined line markers. (5.3.2) 


token: a program symbol, such as a keyword, punctuation symbol, identifier, or literal 
string, that is divisible from other such symbols by one or more logical blanks. (3.3) 


type: a program object denoting a set of values which a data item can assume. Every 
constant, variable, parameter, and expression in Pascal has a type. (5.1, 5.3) 


type constructor: a keyword specifying a structuring method for a structured type. 
There are four type constructors in Pascal: ARRAY, RECORD, SET, and FILE. 
(5.3.2) 


unnormalized: said of a real value in the temporary real format if its exponent is 
greater than zero and its explicit leading bit is zero. (14.7) 


value parameter: in a procedure or function declaration, a parameter whose argument 
is evaluated once, when the procedure or function 1s invoked, and is not changed by 
the procedure or function. Its argument may be any expression of the proper 
type. (6.4.2) 


variable: a data item whose values can change during program execution, and which 
the program processes. It is referred to by an identifier. (5.1, 5.4) 
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variable parameter: in a procedure or function declaration, a parameter whose 
argument may be changed by the procedure or function. Its argument must be a 
variable. (6.4.3) 

variant: see record variant. 

variant record: a record type with record variants. (5.3.2) 

warning: in the output from the compiler, a message indicating an anomaly in 
programming style that may point to a problem, but that will not affect the validity 


of the compiled object code. A warning Is less serious than an error. (11.1.3, 13.1) 


workfile: a temporary file created by a program (such as a compiler) for its own 
internal use and deleted when the program finishes. (system-dependent appendix) 


Glossary—1 1 


ABS, 8-6 
adding operators, 7-1 
addition, 7-5 
allocating dynamic variables, 8-12 
AND, 7-7 
approximate assembly code listing, 10-11, 11-6 
ARCCOS, 8-9 
ARCSIN, 8-9 
ARCTAN, 8-10 
argument list, 4-6, 6-1, 7-5, 7-13 
arguments, 4-6, 6-1, 7-5, 7-13 
arithmetic 
errors, 14-1, 14-2 
floating-point, 7-10 
functions, 8-5 
mixed-mode, 7-6 
operators, 7-5 
real, 7-10 
array 
large, Appendix H 
types, 5-9 
variables, 5-9, 5-19 
ASCII character set, Appendix G 
ASM86 Macro Assembly Language 
communicating with modules in, Appendix J 
example subroutine, Appendix J 
assembly language 
code listing, 10-11, 11-6 
communicating with modules in, Appendix J 
Pascal compared to, 1-1 
assignment compatibility, 5-17 thru 5-19 
assignment statements, 7-13 
AT87DENR, 8-28 
AT87ERRORS, 8-29 
AT87EXCEPTIONS, 8-28 
AT87MASK, 8-29 
AT87NVLD, 8-29 
AT870OVER, 8-28 
AT87PRCN, 8-28 
AT87RSVD, 8-28 
AT87UNDR, 8-28 
AT87ZDIV, 8-28 
automatic type conversions, 7-3, 7-6 
automatic variables, 5-1 


base type, 5-13 
binary tree traversal program, 2-2, 2-6, 9-3 
blanks, 3-3 
block, 2-1 
block-structured language, 2-1 
Boolean 
functions, 8-5 
operators, 7-7 
BOOLEAN, 5-6, Appendix H 


INDEX 


buffer variable, 5-14, 5-21 

built-in functions, Chapter 8, Appendix F 
built-in procedures, Chapter 8, Appendix F 
BYTES parameters, 6-6 
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of temperatures, sample program, 1-9, 9-1 
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current file component, 5-21 
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device drivers, Appendix K 
difference, set, 7-7 
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effects of controls on other controls, 10-3 
EJECT control, 10-16 
EMPTY, Appendix B 
empty set, 5-13, 7-4 
empty statement, 7-12 
ENABLEINTERRUPTS, 8-28 
end of file, 8-5 
end of line, 8-5 
ENDPOSITION, Appendix B 
entire variables, 5-20 
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environment 
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run-time, 1-5 
EOF, 8-5 
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equality operator, 7-8 
equivalence operator, 7-8 
ERRORPRINT control, 10-17 
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Appendix L 
error mask, 8087, 7-12, 8-28 
error messages, 11-3, Chapter 13 
error numbers, significance of, 13-1 
errors, 
compile-time, 13-3 
in invocation line, 13-2 
in primary controls, 13-2 
operating environment, 14-3 
run-time, 14-1 
examples 
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compiler output, 11-2, 11-3, 11-6, 11-7 
interrupt processing program, 9-13 
list processing program, 9-19 
matrix multiplication program, 9-15 
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integer, 14-3 
operating environment and heap, 14-3 
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executing programs, Appendix L 
EXP, 8-7 
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simple, 7-2 
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extensions to standard Pascal, 1-3, 10-19, Appendix A 

messages noting, 11-2, 13-1, 13-2, 14-1 
EXTENSIONS control, 10-19 
external 
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11-8 
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factors, 7-2 
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list, 5-11 
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file 
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files 
closing of, 4-5, 5-14 
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functions, 6-1 
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GOTO statements, 4-11, 7-21 
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heap exceptions, 14-3 
high-level languages, 1-1 
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utilities, 1-6, 12-1 
iAPX support, 10-29 
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defining, 4-6 
form of, 3-4 
predefined, Appendix F 
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IF/ELSEIF/ELSE/ENDIF control, 10-20, 10-21 
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INCLUDE control, 10-23 
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internal representations of data, Appendix H 


interrupt 
control procedures, 8-27 


Index—4 


Pascal-86 User’s Guide 


handling, for real arithmetic errors, 7-11, Appendix L 
handling, general, 8-27, 10-24, Appendix K 
procedures, 10-8, 10-24, Appendix K 
processing, Appendix K 
sample program, 9-13 
vector, Appendix K 
INTERRUPT control, 10-23 
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MOD86/MOD 186, 10-28 
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modules 
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NOCODE control, 10-11 
NOCOND control, 10-14 
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NOERRORPRINT control, 10-17 
NOEXTENSIONS control, 10-19 
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non-text files, 5-14, 8-14, 8-15 
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NOOBJECT control, 10-29 
NOPRINT control, 10-31 
normal zero, 14-7 
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NOT, 7-7 
notation 
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for extensions to standard Pascal, vii 
for language syntax, vii, Appendix D 
NOTYPE control, 10-39 
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number conversion 
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division, real, 7-5 
equality, 7-8 
equivalence, 7-8 
greater than, 7-8 
greater than or equal to, 7-8 
implication, logical, 7-7, 7-8 
IN, 7-9 
inclusion, set, 7-7 
inequality, 7-8 
inequivalence, 7-8 
intersection, set, 7-7 
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remainder, 7-6 
set, 7-7 
subtraction, 7-5 
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parameter lists, 4-6, 6-4 
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procedural, 6-7 
program, 4-6, 4-10 
value, 6-5 
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PIC, 12-3 
PL/M-86 
communicating with modules in, Appendix J 
Pascal-86 compared to, 1-2, 1-3 
pointer 
dereferencing, 5-16 
types, 5-15 
variables, 5-15 
port input, 8-25, 8-26 
port output, 8-25, 8-26 
portability, 1-3- 
POSITION, Appendix B 
position-independent code, 12-3 
postfix notation program, 9-3 
PQCLOSE, Appendix B 
precedence of operators, 7-1 
preceding value, 8-3 
precision, 7-11, 14-6 
exception, floating-point, 14-5 
preconnection of files, 12-6 
PRED, 8-3 
predefined 
constants, Appendix F 
functions, 2-5, 8-1, Appendix F 
identifiers, Appendix F 
procedures, 2-5, 8-1, Appendix F 
program parameters, Appendix F 
types, Appendix F 
predicates, 8-5 
prefix notation program, 9-3 
preparing a file 
for input, 8-14 
for output, 8-14 
primary controls, 10-1, 10-2 
errors in, 13-2 


PRINT control, 10-31 
private 
heading, 4-10 
objects, 4-5 
section, 4-5 
procedure 
call, 7-13 
declarations, 2-1, 6-1 
heading, 6-1, 6-2 
statements, 7-13 
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procedures, 6-1 

8087, 8-28 

predefined, 2-5, 8-1, Appendix F 
procedural parameters, 6-7 
processor-dependent language features, Appendix B 
program 

block, 2-4, 4-2 

checkout, controls for, 10-8 

development environment, 1-5 

development process, 1-6 

examples, 1-9, 2-2, 2-6, 9-1 

execution, Appendix L 

heading, 4-9 

listing, 11-1 

module, 2-5, 4-1 thru 4-4 

parameters, 4-6, 4-9 

parts of, 4-1 thru 4-4 

segmentation, Appendix I 

structure, 2-1, 4-1 
public 

objects, 4-5 

section, 4-5 

symbols, in compiler output, 11-5 
publications, related 

Intel, Appendix L, Appendix M 
punctuation symbols, 3-2, Appendix F 
PUT, 8-18 


quadratic roots program, 9-10 


RANDOM ACCESS I/O, Appendix B 
range exceptions, 14-4 


READ, 8-18 
READLN, 8-23 
real 


arithmetic, 7-10, 12-2, 14-7 
arithmetic exception, 14-4 
constants, 3-5 
number representation, 7-10 
numbers, signed, 3-5 
types, 5-8, 5-17 
REAL, 5-8, 7-10, Appendix H 
recipients clause in interface specification, 4-7 
record 
types, 5-10 
variables, 5-10, 5-21 
variants, 5-10 
records, physical, Appendix K 
recursion, 2-4 
reentrancy, 2-4 
referenced variables, 5-21 
relational operators, 7-8 
relative complement, for sets, 7-7 
remainder, 7-6 
REPEAT statements, 7-17 
repetitive statements, 7-16 
reserved words, 3-1, Appendix F 
RESET, 8-15, Appendix B 
RESET control, 10-32 
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resolving external references, 12-2 thru 12-5 
result type, of function, 6-3 
RETURN key on console, notation for, vii 
REWRITE, 8-15, Appendix B 
ROUND, 8-11 
rounding, floating-point, 14-7 
RUN command, Appendix L 
running Pascal-86 programs, Appendix L 
run-time 
data representations, Appendix H 
environment, 1-5 
errors, 14-1 
interface, Appendix K 
storage management, Appendix K 
support libraries, 12-2 
system, 1-4, 14-1, Appendix K 


sample assembly language subroutine called from Pascal, 
Appendix J 
sample compiler output, 11-2, 11-3, 11-6, 11-7 
sample programs 
binary tree traversal, 2-2, 2-6, 9-3 thru 9-9 
character input/output, 9-21 
interrupt processing, 9-13 
list processing, 9-19 
matrix multiplication, 9-15 
maze game, 9-17 
quadratic roots, 9-10 
temperature conversion, 1-10, 9-2 
text editor, 9-11 
scalar types, 5-3, 5-4 
scope, 4-4 
SDK-86 kit, 1-7, 1-8 
section numbers, in manual, vii 
sections 
of object module, 12-6 
of program, private and public, 4-5 
SEEKREAD, Appendix B 
SEEKWRITE, Appendix B 
segmentation, of program, Appendix | 
segments, logical, 11-6, 11-8, 12-1 
naming conventions, Appendix J 
semantics, 3-1 
semicolon, 3-2 
separate compilation, 2-5, 4-7 
set 
constructors, 7-4 
empty, 5-13, 7-4 
exceptions, 14-3 
operators, 7-7 
types, 5-13 
variables, 5-13 
set 8087 error mask, 8-29 
SET control, 10-32 
SETINTERRUPT, 8-27 
SETRANDOM, Appendix B 
severity levels, of errors, 13-1, 13-2 
sign bit, 7-10, 7-11 
signed integer, 3-5 
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signed real number, 3-5 
significand, 7-10, 7-11 
simple 

expressions, 7-2 

statements, 7-12 

types, 5-5 
SIN, 8-8 
SMALL control, 10-34, Appendix I 
source 

code, Appendix L 

files, Appendix L 

program listing, 11-1, 11-2 

selection and processing, controls for, 10-6 
special symbols, 3-2, Appendix F 
SQR, 8-6 
SQRT, 8-7 
stack segment (section) of object module, 11-8, 11-9, 12-2 
standard Pascal, 1-1, 1-4, Appendix A 
statements, 7-12 

assignment, 7-13 

CASE, 7-15 

compound, 7-14 

conditional, 7-14 

empty, 7-12 

executable, 7-12 

FOR, 7-17 

GOTO, 4-11, 7-21 

IF, 7-14 

in compiler output, 11-2 

loop control, 7-16 

procedure, 7-13 


REPEAT, 7-17 
repetitive, 7-16 
separator between, 3-2 
simple, 7-12 
structured, 7-12 
terminator for, 3-2 


WHILE, 7-16 
WITH, 7-19 
static variables, 5-1 
stepwise refinement, 2-4 
storage management, run-time, Appendix K 
string 
constants, 3-6 
types, 5-10, 5-17 
strings, literal, 3-6 
strongly typed language, 1-2, 5-3 
structured statements, 7-12 
structured types, 5-8 
subrange types, 5-7 
subsystems, 2-5, Appendix I 
open and closed, Appendix I 
SUBTITLE control, 10-36 
subtraction, 7-5 
SUCC, 8-4 
symbol and cross-reference listing, 10-40, 11-4 
SYMBOLSPACE control, 10-37, 11-8 


Index—8 


Pascal-86 User’s Guide 


syntax, 3-1 
diagrams, Appendix E 
notation, vii, Appendix D 


tab character, 3-3 
tag field, 5-10, 5-12 
tags, in variant record, 5-10 
TAN, 8-8 
temperature conversion program, 1-10, 9-2 
temporary real format, 7-4, 7-10, 7-11, Appendix H 
TEMPREAL, 5-8, 7-10, Appendix H 
terms, 7-2 
terminal symbols, viii, Appendix D 
text editor sample program, 9-11 
text files, 5-14, 8-14 thru 8-25 
TEXT, 5-14, Appendix B 
tokens, 3-4 
top-down development, 2-4 
TITLE control, 10-38 
trace messages from compiler, Appendix L 
transcendental functions, 8-6 thru 8-10 
transfer functions, 8-10 
transfer procedures, 8-13 
tree traversal program, 2-2, 2-6, 9-3 thru 9-9 
trigonometric functions, 8-6 thru 8-10 
TRUE, 5-6 
TRUNC, 8-10 
TYPE control, 10-39 
type 
constructors, 5-9 
definitions, 5-4 
specifications, 5-4 
types, 5-1, 5-3 
array, 5-9 
base, 5-13 
compatibility of, 5-17 thru 5-19 
component, 5-9 
conversion of, 7-3, 7-6, 8-10 
enumerated, 5-6 
file, 5-14 
host, 5-7 
index, 5-9 
integer, 5-16 
ordinal, 5-5 
pointer, 5-15 
predefined, Appendix F 
real, 5-8, 5-17 
record, 5-10 
result, of function, 6-3 
scalar, 5-3, 5-4 
set, 5-13 
simple, 5-5 
string, 5-10, 5-17 
structured, 5-8 
subrange, 5-7 
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identity, 7-5 
negation, 7-5, 7-6, 7-7 
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underflow exception, floating-point, 14-6 
union, set, 7-7 

Universal PROM Mapper (UPM), 1-7, 1-8 
Universal PROM Programmer (UPP), 1-7, 1-8 
unnormalized numbers, 14-7 

UNPACK, 8-14 

unresolved external references, | 2-2 thru 12-4 
uppercase letters, 3-2 


value parameters, 6-5 
variable 
declarations, 4-1, 4-3, 5-19 
parameters, 6-6 
variables, 5-1] 
buffer, 5-14, 5-21, 8-15 
control, in FOR statements, 7-17 
denotations of, 5-20 
entire, 5-20 
indexed, 5-20 
referenced, 5-21 
variant records, 5-10 
variants, of a record, 5-10 
versions of Pascal, differences between, Appendix A 


vocabulary 
of this manual, Glossary 
of the Pascal-86 language, 3-1, Appendix F 


warnings, 11-2, 13-1 thru 13-3 
WHILE statements, 7-16 
WITH statements, 7-19 
WORD, 5-5, Appendix H 
work files, Appendix L 
WRD, 8-3 

WRITE, 8-20 

WRITELN, 8-24 


XREF control, 10-40 


zero divide exception 
floating-point, 14-4, 14-6 
integer, 14-3 


8087 
emulator, 1-1, 1-6, 7-9, 12-2, 12-4, 12-6, 14-4, 14-7 
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Numeric Data Processor, 1-1, 1-6, 7-10, 12-2, 12-4, 14-4, 
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procedures, 8-28 
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